HILFEEEEE !

Private Sub AufGrid_EditKeyDown(KeyCode As Integer, Shift As Integer)
Dim nCol As Long
Dim nRow As Long
 
With AufGrid
    nRow = .Row: nCol = .Col
 
    Select Case KeyCode
    Case vbKeyUp
        If nRow > 1 Then
          KeyCode = 0
          .UpdateRow
          .DoEdit nRow - 1, nCol
        End If
 
    Case vbKeyDown
        If nRow < .Rows Then
          KeyCode = 0
          .UpdateRow
          .DoEdit nRow + 1, nCol
        End If
 
    Case vbKeyLeft
        If nCol > 1 Then
          KeyCode = 0
          SendKeys "+{TAB}"
        End If
 
    Case vbKeyRight
        If nCol < .Cols Then
          KeyCode = 0
          SendKeys "{TAB}"
        End If
    End Select
End With
 
End Sub