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.?