Excel VBA – Alle Farbindizes (ColorIndex) auflisten

Dieser Beitrag ist ein Teil der VBA Grundlagen Serie.
Excel bietet standardmäßig 56 Farben an, die in einer Palette zusammengefasst sind. Diese werden in VBA über die Eigenschaft ColorIndex angesprochen. In diesem Beitrag zeige ich Ihnen, wie Sie alle Indizes auf einen Blick auflisten können. Nebenbei lernen wir etwas über Gruppierung in Zeilen und Spalten.

111 VBA Makros die Ihr Leben leichter machen. Egal ob Sie Einsteiger oder fortgeschrittener Anwender sind – in diesem Buch finden Sie Lösungen für Ihre alltäglichen Aufgaben. Keine Vorkenntnisse notwendig.

Wir wollen die Farben in 8 Reihen mit je 7 Farben darstellen. Dabei gehören jeweils zwei Zellen nebeneinander zu einer Farbe. Das Ergebnis würde wie folgt aussehen.

Nachdem wir ein neues Makro angelegt haben, fügen wir den folgenden Code ein:

Sub ListColorIndex()
Dim lngCounter As Long

With Worksheets("Farbindizes")
 
 For lngCounter = 1 To 56 'Jeden Farbindex nacheinander auflisten
 
    .Cells(((lngCounter - 1) \ 7) + 1, _
    2 * ((lngCounter - 1) Mod 7) + 1) _
    .Value = "Colorindex = " & lngCounter
    
    .Cells(((lngCounter - 1) \ 7) + 1, _
    2 * ((lngCounter - 1) Mod 7) + 2) _
    .Interior.ColorIndex = lngCounter
 
 Next
 
 .Cells.Columns.AutoFit 'Spaltenbreite automatisch anpassen

End With
End Sub

111 VBA Makros die Ihr Leben leichter machen

Wollen Sie Ihre langweiligen Routineaufgaben loswerden? Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen.

Hört sich gut an

Der Zähler lngCounter wird bei jedem Schleifendurchlauf um 1 erhöht und nimmt nacheinander die Werte von 1 bis 56 an.

Um die Zeile zu berechnen, wird der Variablenwert um 1 vermindert und anschließend mit einer Ganzzahlendivision (umgekehrtes Divisionszeichen ) durch 7 geteilt. Damit ergeben die Werte von 1 bis 7 die Ganzzahl 0, von 8 bis 14 die Ganzzahl 1, und so weiter. Da die Zeile Null nicht existiert, wird zum Divisionsergebnis eine 1 hinzugefügt.

Für die Berechnung der Spalte benutzen wir den Mod-Operator, der den Rest einer ganzzahlingen Division zweier Zahlen zurückgibt. Wir verringern den Zählerwert um 1 und führen die Modulo Operation mit den Operanden lngCounter und 7 durch. Dabei bekommen wir nacheinander immer Werte zwischen 0 und 7 als Ergebnis. Dieser wird anschließend mit 2 multipliziert, da für jeden Wert zwei Zellen vorgesehen sind. Da die Spalte Null nicht existiert, wird zur Anzeigen des Wertes eine 1 und zur Darstellung der Farbe eine 2 hinzuaddiert.

Die Beispiel Excel Datei mit dem sofort einsetzbaren Makro und 111+ andere Makros, die Ihr Leben leichter machen, finden Sie hier.

Beeindrucke deinen Chef mit coolen Excel Tricks!

Lasse dich von deinen Kollegen nicht abhängen!
Spare Zeit und nutze diese für angenehmere Dinge
Steigere deine Produktivität und Effizienz
Es ist leicht - In meinem Newsletter gebe ich Schritt für Schritt Anleitungen die jeder versteht
Bei der Anmeldung zu meinem Newsletter erhälst du das Buch „Excel Tricks die deinen Chef beeindrucken“ als Willkommensgeschenk.

Weiterführende Links:
ColorIndex

Falls Ihnen dieser Beitrag weitergeholfen hat, wäre es eine sehr nette Anerkennung meiner Arbeit wenn Sie z.B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision. Für Sie ändert sich am Preis des Produktes gar nichts. Ich möchte mich an dieser Stelle jetzt schon für Ihre Unterstützung bedanken.

Bildquelle: Pixabay, CC0 Public Domain