Gruppe
Allgemein
Problem
Wie kann ich alle Farbindex-Nummern von 1 bis 56 mit der zugehörigen Farbe in einer Tabelle auflisten lassen?
StandardModule: basMain
Sub FarbIndices()
Dim iCounter As Integer
For iCounter = 1 To 56
Cells(iCounter, 1).Interior.ColorIndex = iCounter
Cells(iCounter, 2) = iCounter
Next iCounter
End Sub