Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen anhand RGB Weret färben

Forumthread: Zellen anhand RGB Weret färben

Zellen anhand RGB Weret färben
25.07.2016 22:17:08
Selma
Hallo Leute,
ich habe in einem Arbeitsblatt "RGB" beginnend ab Zeile A2 die eindeutige Nummer (von 0 bis 255) in der Spalte A und in Spalte B, C und D (die RGB-Farbe) für die Nummer der Spalte A.
Number Red Green Blue
0 255 255 255
1 255 0 0
2 255 255 0
3 0 255 0
4 0 255 255
5 0 0 255
6 255 0 255
7 255 255 255
usw.
In einem naderem Arbeitsblatt möchte ich für die markierten Zellen (beinhalten Nummern) die Zellen mit RGB-Farbe füllen.
Bsp. Zellinhalt "7" dann die Zelle mit 255,255,255 füllen usw.
Wie mache ich das bitte per VBA?
Vielen Dank im Voraus!
Gruß,
Selma
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das Folgende kannst du in eine Prozedur ...
25.07.2016 23:22:59
Luc:-?
…einbinden, Selma: 
Const adFarbBer$ = "B2:Dn", tiFarbTab As String = "RGB"  'am PgmAnfg leicht änderbar!
Dim fbIx As Integer, fbRGB(2) As Long, NrFarbe As Variant
NrFarbe = WorksheetFunction.Transpose(Worksheets(tiFarbTab).Range(adFarbBer))
For Each xZ In ActiveWindow.RangeSelection
For fbIx = 0 To 2: fbRGB(fbIx) = NrFarbe(fbIx + 1, xZ + 1): Next fbIx
xZ.Interior.Color = RGB(fbRGB(0), fbRGB(1), fbRGB(2))
Next xZ
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: Das Folgende kannst du in eine Prozedur ...
26.07.2016 09:39:29
Selma
Vielen Dank Luc!
Es funktioniert perfekt...
Gruß,
Selma
AW: Das Folgende kannst du in eine Prozedur ...
26.07.2016 12:57:02
Christian
Hallo zusammen,
kann dass sein, dass in der folgenden Zeile: 
 NrFarbe(fbIx + 1, xZ + 1): Next fbIx

bei xZ durch das + 1 die Indexzahl irrtümlicherweise
um eins erhöht wird?
Gruß, Christian
Anzeige
Ja, aber absichtlich, da die FarbNrn mit 0 ...
26.07.2016 13:34:38
Luc:-?
…beginnen, Christian;
der Index des Farb-Arrays beginnt aber sowohl für Zeilen als auch Spalten mit 1, da es aus der Adaption eines ZellBereichs stammt.
Gruß, Luc :-?
Bitte sehr, gern geschehen! owT
26.07.2016 13:35:19
Luc:-?
:-?
;

Forumthreads zu verwandten Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
VBA Zellen einfärben
WalterK

Hallo,
aus dem Internet (woher ist mir nicht mehr erinnerlich) habe ich einen Code erfragt, der bestimmte Zellen mit bestimmten Hintengrundfarben einfärbt.
Der Code funktioniert noch nicht optimal, darum wende ich mich an Euch.
Zur genauen Beschreibung des Problems habe ich eine Arb...
26.07.2012 23:32:38
Thread-ID: 1272794
7 Beiträge
markierter Zelle eine Hintergrundfarbe zuweisen
Helmuth

Hallo leute,wie kann ich die hintergrundfarbe einer Zelle bzw. eines Zellbereichs ändern. D.h. die Zellen werden erst durch den user markiert nicht durch den code, denn darin liegt mein problem. wie spreche ich bereits markierte Zellen an??*danke*
22.07.2002 10:10:11
Thread-ID: 138916
5 Beiträge
Anzeige
Zellen Hintergrundfarbe zuweisen
Andy

Wie kann ich in Excel eine Zelle so formatieren, dass bei Eingabe von irgendetwas dem Hintergrund der Zelle eine Farbe zugeordnet wird?Danke für Eure HilfeAndy
30.07.2002 11:52:17
Thread-ID: 142449
5 Beiträge
mit VBA Zellen einfärben wenn....
Holger

Hallo
ich hoffe es kann mir jemand weiter helfen.
Da es mit Excel 2000 nicht möglich ist, mit der bedingten Formatierung Zellen einzufärben, sondern nur den Text, benötige ich eine VBA Lösung.
Die Zellen
C4 bis AD4 sowie
C5 bis C17 sowie
F17 bis AD17
sollen sich...
09.03.2015 02:34:24
Thread-ID: 1413647
4 Beiträge
Anzeige
Bubble Chart: VBA neues Textfeld & RGB Farben
Susanne

Hallo,
ich habe 2 Probleme:
1. Neues!, zentriertes Textfeld in einem Bubblechart erstellen und Text auslesen
Ausgangslage:
a) Es existiert ein Bubblechart in dem die Bubblegröße zentriert angezeigt wird (siehe Beispiel).
b) Mittels eines Makros (aus dem Forum) lassen ich Tex...
17.06.2015 12:29:49
Thread-ID: 1431418
7 Beiträge
Anzeige
Zelle mit RGB färben - Methode Colors schlägt fehl
Moritz

Liebe VBA Experten - ich habe ein vermutlich simples Problem mit dem Färben einer Zelle, für das ich den ColorIndex benutze. Bei den RGB-Werte 0,0,0 / 255,0,0 / 255,255,255 u.ä. erscheint jedoch der Laufzeitfehler 1004 -- Die Methode 'Colors' für das Objekt '_Workbook' ist fehlgeschlagen -- da...
06.05.2017 08:39:27
Thread-ID: 1556659
12 Beiträge
VBA Zelle von bis einfärben
bis

Hallo zusammen,
ich bräuchte Unterstützung bei folgender Formel als VBA-Code:
Wenn Zelle A1 = X dann soll die Zeile von A1 bis D1 in einer beliebigen Farbe eingefärbt werden.
Vielen Dank für eure Mühe!
Thomas
15.03.2018 17:57:31
Thread-ID: 1614403
12 Beiträge
Zellen Textfarbe zuweisen
Burghard
Hallo,
ich brauche mal Hilfe.
Ich habe eine Tabelle, in der Werte berechnet werden sollen.
Wenn in der Spalte B, in der Zelle B4 (mit roter Textfarbe) der Wert (per Funktion ausgerechnet) = 0 ist, dann soll in der Spalte B die Zelle B2 die Textfarbe 11 (= blau) bekommen.
Die Zelle B...
11.03.2004 11:56:07
Thread-ID: 395854
5 Beiträge
Zellen in RGB Farben einfärben
Matthias

Ich möchte die Zellen einer Tabelle nicht über die Farbindex Werte einfärben, sondern über RGB Werte.
Sinn des ganzen ist es aus der Tabelle eine Art falsch Farbenbild zu bekommen. Damit das auch vernünftig aussieht sollten die Farben aber auch entsprechend abgestuft sein.
Geht das mit...
21.09.2004 16:47:28
Thread-ID: 488616
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellen anhand RGB-Werte färben

Schritt-für-Schritt-Anleitung

Um die Zellen in Excel mithilfe von VBA nach RGB-Farben zu färben, folge diesen Schritten:

  1. Öffne Excel und erstelle zwei Arbeitsblätter: eines mit dem Namen „RGB“ und ein anderes für die Zellen, die du einfärben möchtest.

  2. Fülle das Arbeitsblatt „RGB“ mit den RGB-Werten. Die Spalte A sollte die Nummern von 0 bis 255 enthalten, während die Spalten B, C und D die entsprechenden RGB-Farben (Rot, Grün, Blau) darstellen.

    Beispiel:

    Number  Red  Green  Blue
0       255  255    255
1       255  0      0
2       255  255    0

  3. Öffne den VBA-Editor (drücke ALT + F11).

  4. Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (deinWorkbookName)“ > Einfügen > Modul.

  5. Kopiere den folgenden VBA-Code in das Modul:

    Const adFarbBer$ = "B2:D255", tiFarbTab As String = "RGB"
Dim fbIx As Integer, fbRGB(2) As Long, NrFarbe As Variant
NrFarbe = WorksheetFunction.Transpose(Worksheets(tiFarbTab).Range(adFarbBer))
For Each xZ In ActiveWindow.RangeSelection
   For fbIx = 0 To 2: fbRGB(fbIx) = NrFarbe(fbIx + 1, xZ + 1): Next fbIx
   xZ.Interior.Color = RGB(fbRGB(0), fbRGB(1), fbRGB(2))
Next xZ

  6. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  7. Wähle die Zellen aus, die du einfärben möchtest.

  8. Führe das Makro aus: Drücke ALT + F8, wähle das Makro aus und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

  • Fehler: Zellen färben sich nicht
    Lösung: Stelle sicher, dass die RGB-Werte in den Zellen korrekt eingegeben sind und dass du die richtigen Zellen auswählst, bevor du das Makro ausführst.

  • Fehler: Laufzeitfehler
    Lösung: Überprüfe, ob der Bereich adFarbBer$ korrekt definiert ist und ob die Arbeitsblätter die richtigen Namen haben.

Alternative Methoden

  • Bedingte Formatierung: Statt VBA kannst du auch die bedingte Formatierung nutzen, um Zellen basierend auf ihren Werten farblich hervorzuheben. Dies ist eine einfache Möglichkeit, ohne Programmierung auszukommen.

  • Excel-Add-Ins: Es gibt verschiedene Excel-Add-Ins, die das Färben von Zellen anhand von RGB-Werten vereinfachen können.

Praktische Beispiele

  1. Färbe Zellen basierend auf einer Liste: Erstelle eine Liste von Werten in einer Spalte und färbe die Zellen entsprechend den RGB-Werten in einer anderen Tabelle.

  2. Farben in Diagrammen darstellen: Nutze die RGB-Werte, um Diagramme in Excel farblich anzupassen, indem du die Hintergrundfarben der Diagramme entsprechend den RGB-Werten änderst.

Tipps für Profis

  • Verwende RGB-Farben effizient: Du kannst die RGB-Farben in Excel speichern und bei Bedarf abrufen, um eine konsistente Farbgebung in deinem gesamten Arbeitsblatt zu gewährleisten.

  • Makros automatisieren: Automatisiere den Prozess durch die Erstellung von Schaltflächen in deinem Arbeitsblatt, die das Makro mit einem Klick ausführen.

FAQ: Häufige Fragen

1. Wie kann ich die RGB-Werte anpassen?
Du kannst die RGB-Werte direkt in das Arbeitsblatt „RGB“ eintragen. Ändere einfach die Werte in den Spalten B, C und D.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren. Achte jedoch darauf, dass du die entsprechenden Berechtigungen für Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige