Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
 
   If nCol = Grid1.GetCol(9) Then
      With Grid1
         If Val(.Text(nRow, 9)) > Val(.Text(nRow, 10)) Then
            '.Text(nRow, 9) = Val(.Text(nRow, 10)) - Val(.Text(nRow, 8))
            ' den Originalzustand der Spalte 9 wieder herstellen
            .Recordset.Edit
            ' "zu liefern" auf "Ausgangsmeneg" setzen
            .Recordset.Fields(8) = .Recordset.Fields(9) - .Recordset.Fields(7)
            ' ChkBox auf false setzen
            '.Recordset.Fields(0) = False
            .Recordset.Update
            .RowRefresh
         End If
      End With
   End If
 
End Sub