Private Sub gridabrechnungen_BeforeUpdate(ByVal nRow As Long, ByVal nCol As _
  Long, sText As String, Cancel As Integer)
Dim dblaktbetrag As Double
If nCol > 4 And nCol < 8 Then
    dblaktbetrag = IIf(sText = "", 0, sText)
    If varsollbetrag(nCol) < varistbetrag(nCol, nRow) + IIf(sText = "", 0, _
      sText) Then
        If nCol = 5 Then
            MsgBox "Stunden zuviel"
        ElseIf nCol = 6 Then
            MsgBox "Konferenzstunden zuviel"
        ElseIf nCol = 7 Then
            MsgBox "Materialkosten zuviel"
        End If
        MsgBox "Noch zur Verfügung: " & varsollbetrag(nCol) - varistbetrag( _
          nCol, nRow)
        Cancel = 2
    Else
        berechnen nCol, sText
    End If
End If
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo fehler
If Me.ActiveControl Is Me.gridabrechnungen Then
    If KeyCode = vbKeyReturn Then
        Me.gridabrechnungen.UpdateRow
        'summenzeile
    ElseIf KeyCode = vbKeyEscape Then
        If Me.gridabrechnungen.IsEditMode <> 0 Then
           Me.gridabrechnungen.AbortEdit
           'berechnen
           summenzeile
        End If
    End If
End If
Exit Sub
fehler:
MsgBox Err.Description, vbCritical, "Fehler"
Exit Sub
End Sub