habe hier einen Code zum Einfärben von Zeilen gefunden.
Nun habe ich ihn mir auf meine Bedürfnisse abändern wollen.
Wenn in Spalte A ein Eintrag ist funktioniert das ganze. Allerdings wollte ich das Einfärben erst ab Zeile 12 und bezogen auf Spalte F haben.
Was muss ich hier
Public Sub Zeilen_faerben()
Dim lZeile As Long
Application.ScreenUpdating = False
With Worksheets("Details")
For lZeile = 12 To Range("A65536").End(xlUp).Row
If lZeile Mod 2 = 0 Then
.Range("F" & lZeile & ":O" & lZeile).Interior.ColorIndex = 3
Else
.Range("F" & lZeile & ":O" & lZeile).Interior.ColorIndex = 2
End If
Next lZeile
End With
Application.ScreenUpdating = True
End Sub
ändern um die Spalte F zu berücksichtigen?
Gruß Rainer