HERBERS Excel-Forum - die Beispiele

Thema: Farbindex von 1 bis 56 auflisten

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Farbe

Hintergrundfarbe in Tabellen mit VBA Farbe von CB´s steuern
Zelle färben wenn Wert in Liste vorkommt Zellfarbe per Cond Formatting nach Zellfarbe änder
Abfrage färben Zellen einfärben trotz Passwortschutz
Zellen einfärben wenn Bedingung erfüllt Hintergrundfarbe von Zeilen
Farben aus einer Arbeitsmappe übernehmen Zeilen löschen in denen Text mit best. Farbe steht
Zählenwenn Blattregisterfarbe rot Fortsetzung Linienfarbe ändern Diagramm
Zeile löschen in Abhängigkeit von Zellfarbe Formel in Werte umwandeln (nur der Füllfarbe 16)?
Excel Farbe Excel Farben
mit textbox wert suchen zeile in farbe Zellfarbe wechseln und quittieren
Farbe verändern Füllfarben in Text ausgeben
Zwei Bedingungen (nächste Zelle leer und Farbe) Farbe aus Zelle = Wert
Gitternetzlinien und Hintergrundfarbe horizontale Achse andere Farbe oder dicker
Zellfarbe aufgrund Formelergebnis ändern Zellenfarbe
Balkenfarbe in Diagramm per VBA ändern Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Farbe von Farbwert (Zahl) ermitteln
Farbe von Farbwert (Zahl) ermitteln Dynamische Farben in Diagramm
auf Hintergrundfarbe zugreifen Suche in Tabelle Zahl und übertrage deren Farbe
HTML Farben darstellen Textstyle ändern bei bestimmter Hintergrundfarbe
Kurvenbereiche unterschiedliche Farben Kommentar mit Zellenhintergrundfarbe
Farben zählen bis zum bestimmten Datum Hintergrundfarbe bestimmen
Farben zählen abhängig vom Datum registerfarbe nach wert
Einzelne Farbe im Chat ändern wenn... Tabellen Farbe
Farben in RGB umrechnen Farben aus einer anderen Mappe übernehmen
Farbe bei Klick in Zelle Farben zuordnen
Farbe der aktiven Zelle nicht zurück gesetzt Zeilen kopieren, wenn in der Zeile Füllfarbe 22.?