Ich habe diversen Zellen verschiedene Farben zugewiesen.
Gibt es eine Möglichkeit deren RGB-Farbwert zu ermitteln?
Per VBA ---> Ausgabe in einer MsgBox?
Besten Dank und Gruss
Maria
Ich habe diversen Zellen verschiedene Farben zugewiesen.
Gibt es eine Möglichkeit deren RGB-Farbwert zu ermitteln?
Per VBA ---> Ausgabe in einer MsgBox?
Besten Dank und Gruss
Maria
den Zellen wird ein Farbindex von 1 bis 56 zugewiesen
MsgBox "Farbe " & ActiveCell.Interior.ColorIndex gibt diesen zurück. Hast Du Dich nur "falsch" ausgedrückt oder willst Du den Farbindex in RGB umrechnen ?
Gruß Otto
Zeigt den Farbindex aus Zelle A1 an.
Gruß Boris
Färbt die Zellen A1 bis A56 in den verschiedenen Farben und gibt in B1 bis B56 den Farbcode aus.
Gruß Boris
Danke für die vielen Antworten.
Ich möchte jedoch nicht den Index wissen, sondern wirklich den RGB-Farb-Wert. Mit Shapes ist das kein Problem, wie jedoch funktioniert das mit Zellen?
Besten Dank und Gruss
Maria
da muss ich passen. Vielleicht meldet sich ja jemand anderes.
Gruß Otto
Genau das hab ich gesucht.
Vielen Dank!
Gruss
Maria
Ich habe mir den Lösungsweg nun etwas genauer angesehen:
Einfach Genial! - Wow.
Gruss
Maria
Um die RGB-Farbe einer Zelle in Excel zu ermitteln, kannst Du VBA verwenden. Hier sind die Schritte, die Du befolgen musst:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu starten.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub FarbwertErmitteln()
Dim zelle As Range
Set zelle = ActiveCell 'Aktuelle Zelle auswählen
Dim rgbFarbe As Long
rgbFarbe = zelle.Interior.Color 'RGB-Farbe ermitteln
MsgBox "Der RGB-Farbwert der Zelle " & zelle.Address & " ist: " & rgbFarbe
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Wähle die Zelle aus, deren Farbe Du ermitteln möchtest.
Drücke ALT + F8
, wähle FarbwertErmitteln
und klicke auf Ausführen
.
Damit erhältst Du den RGB-Farbwert der Zelle in einer MsgBox.
Problem: MsgBox zeigt 0
an.
0
an.Problem: Der Farbwert stimmt nicht mit der erwarteten Farbe überein.
Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du die Farbe einer Zelle auch mit einer Formel ermitteln, allerdings ist dies nur eingeschränkt möglich. Eine Möglichkeit ist die Verwendung von benutzerdefinierten Funktionen in VBA, die die Farbwerte auslesen.
RGB-Farbwert ermitteln:
255
für Rot, 0
für Grün und 0
für Blau.Farbcode auslesen:
Sub FarbcodeBereichAuslesen()
Dim zelle As Range
Dim i As Integer
i = 1
For Each zelle In Range("A1:A10") 'Bereich anpassen
Cells(i, 2).Value = zelle.Interior.Color 'Farbcode in Spalte B ausgeben
i = i + 1
Next zelle
End Sub
ActiveCell.Interior.ColorIndex
, um den Farbindex einer Zelle zu ermitteln.1. Kann ich die Farbe einer Zelle ohne VBA ermitteln? Ja, es ist möglich, die Farbe einer Zelle in Excel mit VBA auszugeben, aber ohne VBA ist dies nur eingeschränkt über benutzerdefinierte Formeln möglich.
2. Wie kann ich den RGB-Wert in eine Excel-Farbnummer umwandeln?
Der RGB-Wert ist eine Long-Zahl, die Du direkt verwenden kannst. Um ihn in Excel-Farbnummern zu konvertieren, kannst Du die Funktion ColorIndex
verwenden, um den entsprechenden Farbindex zu ermitteln.
3. Gibt es eine Möglichkeit, die Hintergrundfarbe ohne VBA zu ändern? Ja, Du kannst die Hintergrundfarbe direkt über die Excel-Oberfläche ändern, indem Du die Zelle auswählst und die gewünschte Farbe im Menü „Start“ wählst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen