Sie haben eine große Tabelle und möchten zur besseren Übersichtlichkeit die Zeilen abwechselnd mit einer Farbe einfärben. Per Hand ist das sehr aufwendig. Hier kann ein kleines Makro die Arbeit erleichtern. Damit wird automatisch jede zweite Zeile der Tabelle gelb eingefärbt.
Markieren Sie zuerst die gesamte Tabelle und starten Sie dann das Makro:
Sub ZeilenFärben()
Dim Zeile As Range, ZeilenNr As Integer
For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 6
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
Zeile.Borders.Weight = xlThin
Next
End Sub
Tabelle vorher:
Tabelle nachher:
