jede 2. Zeile färben

Sub ZeilenFormatieren()
Dim Zeile As Long

with Tabelle1
For Zeile = 2 To .usedRange.Row.Count

If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.colorindex = 33 (Zahl ist Farbcode) End If

Next Zeile
End with

End Sub

Tab 2

Tab 3

Tab 4

Tab 5