With DGSchweissnaehte
        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