Excel VBA – Alle Farbindizes (ColorIndex) auflisten

Alle Farbindizes (ColorIndex) auflisten
Excel VBA – Alle Farbindizes (ColorIndex) auflisten
5 Sterne
3 Bewertungen

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.
Überblick über Farbindizes (ColorIndex)
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

Unternehmensplanung mit SAP BPC

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.

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.
20 Excel Tricks

Jetzt anfordern!

* Pflichtfeld
 
Kein SPAM. 100% sicher.

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

Denis Reis ist Business Intelligence Consultant und gibt als Buchautor sein Wissen rund um den SAP Projektalltag weiter. Wenn Sie tatkräftige Unterstützung bei Ihren SAP BI Projekten benötigen, können Sie ihn über Xing, LinkedIn oder Facebook kontaktieren.
Des Weiteren unterrichtet er Projektmanagement und Controlling an der Wiesbaden Business School. Der aus Düsseldorf stammende Familienmensch zählt zu denjenigen, die auf komplizierte Darstellungen verzichten und das Ganze auf den Punkt bringen.

0 Kommentare

Dein Kommentar

Want to join the discussion?
Feel free to contribute!

Kommentar verfassen