ich habe ein Problem, das nicht allzu schwierig sein dürfte.
Und zwar: Ich möchte ein Makro schreiben dass mir die Spalten "P" bis "BE" jeweils abwechselnd mit einem
Vielleicht kann mir da jemand dabei helfen!
Viele Grüße
Sub versiv()
Dim ixCol, iFromCol, iNumCols As Integer
iFromCol = InputBox("Ab welcher Spalte:", "Spalten abwechselnd kolorieren", 1)
iNumCols = InputBox("Wieviele Spalten:", "Spalten abwechselnd kolorieren", 1)
If iFromCol < 1 Or iNumCols < 1 Then Exit Sub
For ixCol = iFromCol To (iFromCol + iNumCols) Step 2
ActiveSheet.Columns(ixCol).Interior.ColorIndex = 35 ' Hier Farbe anpassen
Next ixCol
End Sub