Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
' Tasten abfragen
    With Grid1
        If KeyCode = vbKeyTab Then
            ' In Zeile 2 und Zeile 7, 13. Spalte überspringen
            If .Row = 2 Or .Row = 7 Then
                If (.Col = 12 And Shift = 0) Or (.Col = 14 And Shift = 1) Then
                    ' Zelle für Editieren sperren
                    .Columns(13).LockEdit = True
                Else
                    .Columns(13).LockEdit = False
                End If
            Else
                .Columns(13).LockEdit = False ' *** neu hinzugefügt
            End If
        End If
    End With
End Sub