Public Sub Markierungen()
 
        Dim CellWert As Object
        Dim CellFarbe As Color
        'Dim TestZeile As Integer = 1        ' <--- Anpassen
        Dim TestSpalte As Integer = 1       ' <--- Anpassen
 
 
        For I As Integer = 0 To PlanningGuideDataDataGridView.Rows.Count - 1
 
            CellWert = PlanningGuideDataDataGridView.Rows(I).Cells( _
              TestSpalte).Value
            ' Lösungsavorschlag mit If ... ElseIf
 
            If CellWert = "HR" Then CellFarbe = Color.Green
            If CellWert = "CH" Then CellFarbe = Color.Blue
            If CellWert = "PT" Then CellFarbe = Color.LawnGreen
 
            'ElseIf CellWert = "CH" Then
 
            'CellFarbe = Color.Blue
 
            'End If
 
            PlanningGuideDataDataGridView.Rows(I).Cells( _
              TestSpalte).Style.BackColor = CellFarbe
 
        Next
 
    End Sub