Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
25.10.2025 12:33:55
aktuellstes Datum aus Zelle auslesen
25.10.2025 08:21:40
Datensatz trennen
24.10.2025 18:10:41
vba pdf
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

RGB Farbcode auslesen

Forumthread: RGB Farbcode auslesen

RGB Farbcode auslesen
16.07.2020 12:38:36
MarWin_115
Hallo,
ich möchte den RGB-Farbindex einer Zelle in Excel ermitteln.
Dazu habe ich folgenden VBA Code in ein Modul meiner Arbeitsmappe geschrieben:
Function RGB_Hintergrundfarbe(Farbe As Range)
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Wert = Farbe.Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert – Rot) / 256
Grün = Wert Mod 256
Wert = (Wert – Grün) / 256
Blau = Wert Mod 256
RGB_Hintergrundfarbe = Rot & „, “ & Grün & „, “ & Blau
End Function

Anschließend habe ich die Funktion in eine leere Zelle eingefügt und als Funktionsargument eine Zelle mit Hintergrundfarbe gewählt.
Daraufhin bringt er einen Fehler beim Kompilieren (Syntaxfehler).
Was mach ich verkehrt?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: RGB Farbcode auslesen
16.07.2020 12:42:06
Zwenn
Hallo Marwin,
ich habe Deinen Code nicht getestet. Aber Du musst der Funktion auch einen Ruckgabetyp spendieren ;-)
Function RGB_Hintergrundfarbe(Farbe As Range) As String
Viele Grüße,
Zwenn
AW: RGB Farbcode auslesen
16.07.2020 12:48:07
Zwenn
Ok,
geht auch ohne Rückgabetyp. Du hast für die Minus in den Wert Berechnungen und die Anführungsstriche in der Zeile für den Rückgabewert falsche Zeichenverwendet:

Function RGB_Hintergrundfarbe(Farbe As Range) As String
Dim Rot As Long
Dim Grün As Long
Dim Blau As Long
Dim Wert As Long
Wert = Farbe.Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
RGB_Hintergrundfarbe = Rot & ", " & Grün & ", " & Blau
End Function
Viele Grüße,
Zwenn

Anzeige
Er wird statt des VBE ein Textprogramm ...
16.07.2020 12:54:22
Luc:?
…benutzt haben, Zwenn,
was ein (tödlicher) Fehler ist. Denn, falls das komfortabel ist, wandelt es An-/Ausführungszeichen normgerecht um und aus Minus zwischen Leerzeichen wird Bindestrich.
Luc :-?
AW: Nein, Zwenn, genau das muss man idR nicht!
16.07.2020 13:28:55
Zwenn
Hallo Luc,
dass es ohne Rückgabetyp geht wußte ich vorher gar nicht. Hatte es ausprobiert und es ging. Danke für die Erklärung mit Variant. Hätte ich auch selbst drauf kommen können. Ist schließlich sowas wie eine Variable ohne Angabe eines expliziten Datentyps.
Viele Grüße,
Zwenn
AW: RGB Farbcode auslesen
16.07.2020 12:49:59
fcs
Hallo MarWin,
du hast in deinem Code Zeichen, die da nicht hingehören, woher auch immer: Die ANführungszeichen sind falsch und das Minuszeichen ist kein normaler Bindestrich/Minuszeichen.
LG
Franz
Code sollte im VBA-Editor so aussehen: 
Function RGB_Hintergrundfarbe(Farbe As Range)
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Wert = Farbe.Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
RGB_Hintergrundfarbe = Rot & ", " & Grün & ", " & Blau
End Function

Anzeige
AW: RGB Farbcode auslesen
16.07.2020 13:23:38
MarWin_115
Hallo Franz,
sowas hatte ich mir schon gedacht, hatte die Formel nur kopiert.
Danke für die Korrektur!
LG MarWin_115
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
Farbe der Nachbarzelle
Volker

Hallo zusammen,
zuerst einmal wünsche ich Euch ein gutes 2009!
Nun zu meinem Problem:
Ich übergebe mittels untenstehendem Code die Daten an eine Tabelle. Funktioniert auch. Allerdings hätte ich jetzt gerne das bei nachträglich geleerter Zelle die Ursprungsfarbe wieder erscheint.
08.01.2009 12:50:17
Thread-ID: 1037876
8 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Anzeige
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
farbe von Objekt auslesen
Objekt

Hallo zusammen,
ich würde gerne die Farbe von Objekten, mit denen Sie gefärbt sind auslesen.
Mit dem Makrorekorder kann ich mir ja leicht aufzeichnen, wie ich das Objekt färbe, aber rückwärts scheint das nicht zu funktionieren.
Im Prinzip bräuchte ich etwa sowas:
msgbox Workshee...
15.07.2009 17:30:03
Thread-ID: 1088874
3 Beiträge
Farbe bei betreten der Zelle
Stefanglander

Hallo Forum,
habe hier etwas sehr interessantes gefunden.
Option Explicit
Function ColorFromPallet(Optional lOldCol As Double = xlNone) As Double
Dim dSavCol As Double, dNewCol As Double
Dim iRGB_R As Integer, iRGB_G As Integer, iRGB_B As Integer
dSavCol = ActiveWorkbook...
13.08.2009 22:38:17
Thread-ID: 1095814
18 Beiträge
Wert aus Zelle herauslesen
Johannes

Hallo zusammen,
weiß jemand, wie man eine Zahl aus einer Zelle mittels einer Formel herauslesen kann und mit dieser auch weiter rechnen kann?
Beispiel:
In Zelle A1 steht (das ' signalsiert den Zellanfang und -ende):
' 600 Haushaltswaren'
Jetzt möchte in A2 nur den W...
28.09.2009 11:51:34
Thread-ID: 1105996
3 Beiträge
Zellen bei änderung einfärben
question2

Hallo,
ich habe folgendes Problem.
Mit folgendendem kleinen 3-Zeiler färbe ich geänderte Zellen ein. Die Schriftfarbe wird rot dargestellt:
Private Sub Worksheet_Change(ByVal Target As Range) Target.Font.ColorIndex = 3 End Sub
Soweit so gut. Ich bräuche nun aber eine Funktion,...
02.10.2009 19:09:58
Thread-ID: 1106902
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

RGB Farbcode auslesen in Excel

Schritt-für-Schritt-Anleitung

Um den RGB-Farbcode einer Zelle in Excel zu ermitteln, kannst Du eine benutzerdefinierte Funktion in VBA verwenden. Folge diesen Schritten:

  1. Öffne Excel und gehe zu Entwicklertools > Visual Basic (oder drücke ALT + F11).

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Function RGB_Hintergrundfarbe(Farbe As Range) As String
   Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
   Wert = Farbe.Interior.Color
   On Error Resume Next
   Rot = Wert Mod 256
   Wert = (Wert - Rot) / 256
   Grün = Wert Mod 256
   Wert = (Wert - Grün) / 256
   Blau = Wert Mod 256
   RGB_Hintergrundfarbe = Rot & ", " & Grün & ", " & Blau
End Function

  4. Schließe den VBA-Editor und gehe zurück zu Deiner Excel-Arbeitsmappe.

  5. Verwende die Funktion in einer Zelle, indem Du z. B. =RGB_Hintergrundfarbe(A1) eingibst, wobei A1 die Zelle ist, deren Farbcode Du auslesen möchtest.

Häufige Fehler und Lösungen

  • Syntaxfehler: Achte darauf, dass die Zeichen wie Minuszeichen und Anführungszeichen korrekt sind. Verwende keine typografischen Anführungszeichen, da diese Fehler verursachen können.
  • Funktion gibt Fehler zurück: Stelle sicher, dass die Zelle, die Du abfragst, eine Hintergrundfarbe hat. Leere Zellen oder Zellen ohne Formatierung können zu unerwarteten Ergebnissen führen.
  • Rückgabetyp: Der Rückgabetyp der Funktion kann weggelassen werden; jedoch ist es eine gute Praxis, ihn als String zu definieren.

Alternative Methoden

Falls Du keine VBA-Funktion verwenden möchtest, kannst Du auch die Bedingte Formatierung in Excel nutzen, um Zellenfarben anzuzeigen, aber dies ist nicht so präzise wie das Auslesen des RGB-Wertes. Eine weitere Möglichkeit ist die Verwendung von Excel-Add-Ins, die RGB-Farbcodes anzeigen können.

Praktische Beispiele

  1. Farbcode eines grünen Hintergrunds: Wenn Du in Zelle A1 einen grünen Hintergrund hast und die Formel =RGB_Hintergrundfarbe(A1) verwendest, wird sie 0, 255, 0 zurückgeben.
  2. Zellenfarbe abfragen: Du kannst die Funktion auch in einer Tabelle verwenden, um mehrere Zellen gleichzeitig abzufragen und die RGB-Codes in einer neuen Spalte anzuzeigen.

Tipps für Profis

  • Farbcode anzeigen: Du kannst die RGB-Werte in ein Dropdown-Menü oder eine Datenvalidierung integrieren, um eine Farbpalette zu erstellen.
  • VBA-Optimierung: Überlege, Deine Funktion so zu erweitern, dass sie auch den Farbindex oder HEX-Codes zurückgibt.
  • Fehlervermeidung: Nutze On Error Resume Next vorsichtig, da dies alle Fehler ignoriert. Besser ist es, spezifische Fehlerbehandlungen zu implementieren.

FAQ: Häufige Fragen

1. Wie kann ich den Farbcode einer Zelle ohne VBA herausfinden?
Es gibt keine native Funktion in Excel, um den Farbcode direkt ohne VBA auszulesen. Du kannst jedoch manuell die Farben in der Farbpalette abgleichen.

2. Welche Excel-Version wird benötigt?
Die VBA-Funktion ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und neuer.

3. Kann ich die Zellenfarbe mit einer Formel abfragen?
Direkte Formeln zur Abfrage der Zellenfarbe sind nicht verfügbar. VBA ist der beste Weg, um den Farbcode auszulesen.

4. Wie kann ich die Hintergrundfarbe einer Zelle ändern?
Du kannst die Hintergrundfarbe einer Zelle über das Menü Start > Füllfarbe ändern oder die Formatierungsoptionen in der Symbolleiste verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige