HERBERS Excel-Forum - die Beispiele

Thema: Label und Zellen farbig markieren

Home

Gruppe

Allgemein

Problem

In Spalte A befinden sich 35 Labels aus der Steuerelementtoolbox, die mit verschiedenen Gelb-Schattierungen belegt werden können. In Spalte B werden die möglichen Zellfarben eingetragen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub SetLabelColors()
   Dim oLabel As OLEObject
   Dim iCounter As Integer
   For iCounter = 1 To 25
      ActiveSheet.OLEObjects(iCounter).Object.BackColor = RGB(255, 255, 255 - iCounter * 10)
      'ActiveSheet.OLEObjects(iCounter).Object.BackColor = RGB(255, 255, 255)
   Next iCounter
End Sub

Sub SetCellColors()
   Dim iCounter As Integer
   For iCounter = 1 To 56
      Cells(iCounter, 2).Interior.ColorIndex = 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.?