brauche Hilfe bei folgenden Code:
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
Eingefaerbt sollen nur Spalten von A bis J und sobald keine Werte in F vorhanden nicht mehr einfaerben sondern Weiss lassen.
Fuer jede Hilfe waere ich sehr dankbar!
Gruss
Michael