Zellen Muster Bereich

Sub ZellMuster()
Dim Zeilenzahl As Integer
Dim i As Integer
Dim x As Boolean
Dim r As Range
Dim farbe1 As Boolean
Dim farbe2 As Boolean
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
farbe1 = True
farbe2 = False
For i = 2 To Zeilenzahl
x = False
If Range("H" & i)  Range("H" & i - 1) Then x = True
If x = True Then
If farbe1 = True Then
farbe1 = False
farbe2 = True
Else
farbe1 = True
farbe2 = False
End If
End If
If farbe1 = True Then Rows(i).Interior.ColorIndex = 34
If farbe2 = True Then Rows(i).Interior.ColorIndex = 0
Next i
End Sub