Jede zweite Zeile einfärben (VBA)


Jede zweite Zeile einfärben (VBA)

Jede zweite Zeile mit VBA einfärben

Mit dem folgenden VBA-Code können Sie jede zweite Zeile mit einer bestimmten Farbe automatisch einfärben. Im folgenden Programm wird automatisch jede zweite Zeile des im Tabellenblattes benutzten Bereiches mit einer grauen Hintergrundfarbe einfärbt. Wenn Sie eine andere Hintergrundfarbe verwenden wollen, dann verändern Sie einfach den ColorIndex dementsprechend ab.

 

Sub Jede_zweite_Zeile_einfaerben()

    Dim Zeile As Integer

    For Zeile = 1 To ActiveSheet.UsedRange.Rows.count Step 2

        Rows(Zeile).EntireRow.Interior.ColorIndex = 15

    Next

End Sub