Thema: Legende eines Datenblattes einschließlich der Farbmarkierung

Home

Gruppe

Allgemein

Problem

Wie kann ich die Legende eines Datenblattes einschliesslich der zugehörigen Farbmarkierung auslesen und übertragen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub LegendeAuslesen()
   Dim iCol As Integer, iRow As Integer
   iCol = 1
   With Worksheets("Daten")
      Do Until IsEmpty(.Cells(1, iCol))
         iRow = iRow + 1
         Cells(iRow, 1).Interior.Color = _
            .Cells(1, iCol).Interior.Color
         Cells(iRow, 2).Value = .Cells(2, iCol).Value
         iCol = iCol + 1
      Loop
   End With
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.?