VBA - Farbliche Markierung

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeilenzahl As Integer
Dim i As Integer
Dim x As Boolean
Dim farbe1 As Boolean
Dim farbe2 As Boolean
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
farbe1 = True
farbe2 = False
For i = 7 To Zeilenzahl
x = False
If Range("f" & i)  Range("f" & 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 = 15
If farbe2 = True Then Rows(i).Interior.ColorIndex = 10
Next i
End Sub