Private Sub HighlightWorked(nRow As Long, nCol As Long)
Dim lf_Col As Integer
    With grd_Bestellungen
        .Text(nRow, "changed") = 1
        .ListItems(nRow).BackColor = gc_Color_RowWasEdit
        .ListItems(nRow).CellItalic("Woche") = True
        .ListItems(nRow).CellBackColor(nCol) = gc_Color_CellWasEdit
    End With
End Sub

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