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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen