Hallo ich würd gerne ganze Zeilen welche dieselbe ID (Spalte A) beinhalten in unterschiedlichen Farben färben. Das klappt auch gut, jedoch würde ich gerne die Zeilen ohne ID auch ohne Farbe oder weiß belassen und bekomme das leider nicht hin.
Also Ergebnis:
ID
"" - Zeile ist nicht farbig
35 - Zeile ist farbig
35 - Zeile ist farbig
"" - Zeile ist nicht farbig
"" - Zeile ist nicht farbig
51 - Zeile ist farbig
Sub Formatierung()
Dim c As Integer
Dim a As String
i = 2 'Start in Zeile 2
c = 35 ' 1. Farbe
Do While (Cells(i, 1) <> "")
If (Cells(i, 1) <> Cells(i - 1, 1)) Then 'Überprüfe ob Differenz zur Vorzelle in Spalte A
If c = 35 Then
c = 36 '2. Farbe
Else
c = 35 '1. Farbe
End If
End If
Rows(Trim(Str(i)) + ":" + Trim(Str(i))).Interior.ColorIndex = c
i = i + 1
Loop
End Sub |