Spalten abwechselnd einfärben (VBA)


Spalten abwechselnd einfärben (VBA)

Spalten abwechselnd mit VBA einfärben

Mit dem folgenden VBA-Code können Sie abwechselnd die Spalten eines markierten Bereiches mit zwei bestimmten Farben automatisch einfärben. Im folgenden Makro werden die Spalten 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 SpaltenFärben()

Dim Spalte As Range, SpaltenNr As Integer

For Each Spalte In Selection.Columns

SpaltenNr = SpaltenNr + 1

If SpaltenNr Mod 2 = 0 Then

Spalte.Interior.ColorIndex = 15

Else

Spalte.Interior.ColorIndex = 6

End If

Next

End Sub