Zeilen abwechselnd einfärben (VBA)


Zeilen abwechselnd einfärben (VBA)

Zeilen abwechselnd mit VBA einfärben

Mit dem folgenden VBA-Code können Sie abwechselnd die Zeilen eines markierten Bereiches mit zwei bestimmten Farben automatisch einfärben. Im folgenden Makro werden die Zeilen des markierten Bereiches automatisch abwechselnd gelb und grau eingefärbt. Wenn Sie eine andere Hintergrundfarbe verwenden wollen, dann verändern Sie einfach den ColorIndex dementsprechend ab.

 

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 = 15

End If

Next

 

End Sub