Private Sub grd_Bestellungen_StartEditMode(ByVal nRow As Long, ByVal nCol As _
  Long, sText As String, bCancel As Boolean)
 
    With grd_Bestellungen
        If .Columns(nCol).KEY = "Woche" Then
            'bCancel = True
 
            If .ListItems(nRow).KEY = "" Then
                .DoEdit nRow + 1, nCol + 1
            Else
                .DoEdit nRow, nCol + 1
            End If
 
        End If
    End With
 
    If grd_Bestellungen.Columns(nCol).KEY = "t1" Then 'Trennlinie1
        'SendKeys "{TAB}"
        'grd_Bestellungen.DoEdit nRow, "A3"
    End If
 
End Sub

Private Sub grd_Bestellungen_AfterCellEdit(nRow As Long, nCol As Long, ByVal _
  sText As String)
 
    HighlightWorked nRow, nCol
 
End Sub
 
Private Sub HighlightWorked(nRow As Long, nCol As Long)
Dim lf_Col As Integer
 
    With grd_Bestellungen
        .Text(nRow, "changed") = 1
        If .ListItems(nRow).BackColor <> gc_Color_RowWasEdit Then _
        .ListItems(nRow).BackColor = gc_Color_RowWasEdit
        .ListItems(nRow).CellItalic("Woche") = True
        .ListItems(nRow).CellBackColor(nCol) = gc_Color_CellWasEdit
    End With
 
    mf_Changes = True
 
End Sub

Real programmer do not comment their code;
what?s hard to write should be hard to read