'EditKeyDown Er.
If KeyCode = vbKeyTab And Grid1.Col = 5 And Grid1.EditText > 0 And Len( _
  Grid1.EditText) > 0 Then
     KeyCode = 0
        BetragvariE = Grid1.EditText
        If Grid1.Row < Grid1.Rows Then
        Grid1.DoEdit Grid1.Row + 1, 1
        Betrag_berechnung
        Summe_Übertrag_plus
        ElseIf Grid1.Row = Grid1.Row And Grid1.EditText > 0 Then
        Betrag_berechnung
        Neuanlage
        Grid1.DoEdit Grid1.Row, 1
        Summe_Übertrag_plus
        End If
        End If
'==========Einnahmen 0 oder " " -Prüfung
If (KeyCode = vbKeyTab  And Grid1.Col = 5) And (Grid1.EditText <= 0 Or Len( _
  Grid1.EditText) <= 0) Then
        Grid1.DoEdit Grid1.Row, Grid1.Col
        MsgBox "Es wurde kein Betrag eingegeben.", vbCritical, "Eingabefehler"
                        BetragvariE = Grid1.EditText
        Grid1.DoEdit Grid1.Row, Grid1.Col - 1
End If