If Not isNew Then
        ' Datenzeile existiert bereits
        Index = Grid2.GetRow(sID)
        Grid2.List(Index) = sHelp
    Else
        ' Neue Datenzeile erstellen
        Set oItem = Grid2.AddItem(sHelp, , , sID)
    End If
 
    If LenB(Fakt.NoFakt) > 0 Then
        oItem.BackColor = lRowBackColor
        oItem.ForeColor = lRowForeColor
    End If