Jede zweite Zeile des benutzten Bereichs einfärben (VBA)

Mit dem folgenden VBA-Code können Sie jede zweite Zeile des benutzten Bereichs 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