Gruppe
Allgemein
Bereich
Farbe
Thema
Farbindex von 1 bis 56 auflisten
Problem
Wie kann ich alle Farbindex-Nummern von 1 bis 56 mit der zugehörigen Farbe in einer Tabelle auflisten lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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