Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
 
    With Item
        ' Datum manipulieren
        sevGrid1.Text(nRow, 6) = Arbeitstage(sevGrid1.Text(nRow, 6), -15)
 
        ' Wenn KanBan Teil dann Zeile blau markieren
        If Trim(sevGrid1.Text(nRow, 11)) = "LK" Then
            .CellBackColor(2) = blau
            .CellBackColor(3) = blau
            .CellBackColor(4) = blau
            .CellBackColor(5) = blau
        End If
 
        ' für Terminbetrachtung
        If Arbeitstage(sevGrid1.Text(nRow, 6), -15) < Date Then
            ' wenn überschritten
            .CellBackColor(6) = rot
        ElseIf Arbeitstage(sevGrid1.Text(nRow, 6), -15) = Date Then
            ' wenn Heute
            .CellBackColor(6) = gelb
        End If
 
        ' wenn gekennzeichnet
        If Trim(sevGrid1.Text(nRow, 10)) = "w" Or Trim(sevGrid1.Text(nRow, 10)) _
          = "h" Then
            .CellBackColor(2) = orange
            .CellBackColor(3) = orange
            .CellBackColor(4) = orange
            .CellBackColor(5) = orange
        End If
 
    End With
End Sub