Igelnet.de - Tipp der Woche

Die Zeilen einer Tabelle abwechselnd einfärben (Tipp_63) - 08.06.2008

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 vor der Makroausführung (38 kByte)

Tabelle nachher:

Tabelle nach der Makroausführung (47 kByte)