Zeilen abwechselnd einfärben (VBA)

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

search previous next tag category expand menu location phone mail time cart zoom edit close