habe hier was zum Färben von jeder 2 Zelle gefunden.
Frage wie bekommt man es hin, das er erst z.B. bei A10 anfängt?
Sub ZeilenFärben()
Application.ScreenUpdating = False
'Variablen dimensionieren
Dim Zeile, ZeilenNr As Integer
'Schleife für die gesamte Selektion
For Each Zeile In ActiveSheet.UsedRange.Rows
'Zeilen zählen
ZeilenNr = ZeilenNr + 1
'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 15
Zeile.Borders.Weight = xlThin
Zeile.Borders.ColorIndex = 16
Else
Zeile.Interior.ColorIndex = xlNone
Zeile.Borders.ColorIndex = xlNone
End If
Next
Application.ScreenUpdating = True
End Sub
Mfg Peter