Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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:-?
:-?

20 Forumthreads zu ähnlichen 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 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
Anzeige
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
6
6
5
4
4
3
6
11
11
4
2
7
2
6
3
8
1
9