Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
 
   If nCol = Grid1.GetCol(9) Then
      With Grid1
         If .Text(nRow, 9) > .Text(nRow, 10) Then
            MsgBox " Wert zu groß"
            MsgBox .Text(nRow, 9)
            MsgBox .Text(nRow, 10)
            '   .Text(i, 9) = .Text(i, 10) - .Text(i, 8)
            ' die Werte aus dem Grid1 in das Rst schreiben
            ' hier wird der Originalzustand der Zeile 9 wieder hergestellt
           ' .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