Jede zweite Zeile einfärben

Zeilen im Bereich einfärben

Es macht sicherlich Sinn, zumindest bei Tabellen mit „vielen Spalten“ diese unterschiedlich einzufärben. Im unteren Makro geschieht folgendes:

Ab Zeile 3 wird jede zweite Zeile Blau eingefärbt. Die Formatierung der Zeilen geschieht nur soweit, wie viele Spalten und Zeilen Werte oder Formatierungen enthalten.

Selbstverständlich kann Farbe und ab wann (welche Zeile) das einfärben der Zeilen beginnen soll, individuell geändert werden.

Sub Zeilen_formatieren()
     Dim Z, LSP
     With Tabelle1
        LSP = .Cells(2, Columns.Count).End(xlToLeft).Column
        For Z = 3 To .UsedRange.Rows.Count ' ab Zeile 3
           If Z Mod 2 = 0 Then ' jede 2 Zeile
              .Range(.Cells(Z, 1), .Cells(Z, LSP)).Interior.ColorIndex = 33
           End If
        Next Z
     End With
  End Sub