Private Sub sevGrid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyTab And sevGrid1.col = 4 Then
        KeyCode = 0
        If sevGrid1.IsEditMode = 1 Then  ' MODE_EDIT
            sevGrid1.DoEdit sevGrid1.Row, 5
        End If
 
    ElseIf KeyCode = vbKeyTab And sevGrid1.col = 5 Then
        KeyCode = 0
        sevGrid1.UpdateRow
        sevGrid1.SendKeys vbKeyReturn, 0
        VerlasseArtikelpreis = True
        CmdNeuerArtikel.SetFocus
    ElseIf KeyCode = 13 Then
        KeyCode = 0
        sevGrid1.UpdateRow
 
        sevGrid1.SendKeys vbKeyReturn, 0
        CmdNeuerArtikel.SetFocus
    End If
 
End Sub