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

Das könnte interessant sein Powered by AdWol Online Werbung

Letzte Zeile in bestimmter Spalte — VBA Excel Tipps & Tricks

Man bekommt den Integer-Wert der letzten Zeile welche sich in einer bestimmten Spalte befindet. In ...

Letzte Spalte im benutzten Bereich — VBA Excel Tipps & Tricks

Man bekommt die letzte Spalte im benutzten Bereich ausgegeben. Public Sub letzte_zeile ‚Hier wird...

Letzte Spalte einer bestimmter Zeile — VBA Excel Tipps & Tricks

Mit diesem Code, kann man die letzte Spalte einer bestimmten Zeile ermitteln. Hier wäre es die 4 Z...

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