Private Sub dataGridView1_CellFormatting(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
Handles dgv.CellFormatting
 
        If dgv.Columns(e.ColumnIndex).Name.EndsWith("_EIN") Or dgv.Columns( _
          e.ColumnIndex).Name.EndsWith("_AUS") Then
            If Not IsDBNull(e.Value) Then
                If (e.Value.StartsWith("Okt ") Then
                    e.CellStyle.BackColor = farbe1  'Zeile Grün einfärben
                End If
            End If
        End If
    End Sub