Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Formen einfärben (RGB)

VBA: Formen einfärben (RGB)
06.02.2022 11:11:20
Chris
Hallo miteinander,
ich möchte gerne über ein Makro meine Formen einfärben. Dazu steht in Spalte A der Objekt Name der jeweiligen Formen und in Spalte C die Farbe im RGB Format, getrennt mit Kommata.
Userbild
Kann hier jemand mit einem Makro helfen?
Anbei eine Beispieldatei mit 3 Zeilen und Formen. Mein Original hat rund 100 Zeilen und Formen.
https://www.herber.de/bbs/user/150920.xlsm
Falls es das vereinfacht, kann der Farbcode auch auf drei Spalten aufgeteilt werden.
Vielen Dank vorab!
Chris

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Formen einfärben (RGB)
06.02.2022 11:35:49
{Boris}
Hi,
z.B. so:

Sub test()
Dim r As Long, g As Long, b As Long
Dim C As Range
For Each C In Range("A2:A4")
r = Split(C.Offset(0, 2), ",")(0)
g = Split(C.Offset(0, 2), ",")(1)
b = Split(C.Offset(0, 2), ",")(2)
Tabelle1.Shapes(CStr(C)).Fill.ForeColor.RGB = RGB(r, g, b)
Next C
End Sub
VG, Boris
AW: VBA: Formen einfärben (RGB)
06.02.2022 11:48:21
Chris
Ein Traum, das funktioniert, vielen Dank :)
Eine Anschlussfrage: Wie müsste ich das Makro anpassen, wenn ich die Tabelle1 meine Daten und in Tabelle2 die Formen habe?
Sorry, bin echt noch ein Einsteiger was Makros angeht ;)
Viele Grüße
Chris
Anzeige
2 Blätter
06.02.2022 11:52:14
{Boris}
Hi,

Sub test()
Dim r As Long, g As Long, b As Long
Dim C As Range
For Each C In Tabelle1.Range("A2:A4")
r = Split(C.Offset(0, 2), ",")(0)
g = Split(C.Offset(0, 2), ",")(1)
b = Split(C.Offset(0, 2), ",")(2)
Tabelle2.Shapes(CStr(C)).Fill.ForeColor.RGB = RGB(r, g, b)
Next C
End Sub
VG, Boris
Habt ihr beiden...
06.02.2022 20:10:44
Beverly
Hi Boris und Chris,
...mal getestet was passiert, wenn (versehentlich) ein Shape gelöscht wird? Das ergibt einen Laufzeitfehler - also solltet ihr noch eine Fehlerbehandlung einbauen.
Ist es nicht einfacher, so wie in meinem Code die Schleife über die vorhandenen Shapes zu machen und ihren Namen in Spalte A zu suchen? Falls ein Shape fehlt passiert da nämlich nichts.
Bis später
Karin
Anzeige
Fehlerbehandlung...
07.02.2022 08:55:02
{Boris}
Hi Karin,
...ist ja immer der 2. Schritt. Hier lagen konkret 3 Shapes mit ihren 3 korrekten Namen in A2:A4 vor - die Aufgabe bestand ja primär darin, wie man den Shapes die kommagetrennten RGBs verpassen kann: a) Shapes korrekt referenzieren und b) RGB trennen# und zuweisen.
Natürlich läuft das in einen Fehler, wenn irgendwas nicht existiert. Das kann aber auch einen Lerneffekt haben ;-)
Aber Du hast ja nun schon den 2. Schritt mit eingebaut, insofern hat der OP ja bereits alles, was er braucht ;-)
VG, Boris
AW: Fehlerbehandlung...
07.02.2022 10:29:54
Beverly
Hi Boris,
...sollte m.E. nicht zum 2. Schritt gehören sondern sollte unbedingt Bestandteil des 1. Schrittes sein, denn andernfalls kommt es häufig dazu, dass man einen bereits fertigen Code völlig umbauen muss - und das ist sicher nicht Sinn und Zweck der Programmierung. ;-)
Bis später
Karin
Anzeige
Sehe ich anders...
07.02.2022 10:50:12
{Boris}
Hi Karin,
...denn dann müsste man auch alle erdenklichen Fehler berücksichtigen.
Dein Code läuft z.B. auch vor die Wand, wenn der kommagetrennte RGB-Wert wegen eines Tippfehlers nicht passt (z.B. 0,78,255x).
Da hab ich keine Lust, immer alles Mögliche vorauszudenken (Ausnahme: Ereigniscodes - da gehört eine Fehlerbehandlung immer dazu).
VG, Boris
AW: VBA: Formen einfärben (RGB)
06.02.2022 11:47:37
Beverly
Hi Chris,

Sub FormFaerben()
Dim shaShape As Shape
Dim rngZelle As Range
Dim r As Long
Dim g As Long
Dim b As Long
For Each shaShape In ActiveSheet.Shapes
Set rngZelle = Columns(1).Find(shaShape.Name, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
r = Split(rngZelle.Offset(0, 2), ",")(0)
g = Split(rngZelle.Offset(0, 2), ",")(1)
b = Split(rngZelle.Offset(0, 2), ",")(2)
shaShape.Fill.ForeColor.RGB = RGB(r, g, b)
End If
Next shaShape
End Sub
Bis später
Karin
Anzeige

255 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
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge
in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Anzeige
RGB Farben in VBA
kle

Hallo,
...noch eine Frage. Wenn ich einen bestimmten Farbton in meiner Userbox nutzen möchte, dieser aber nicht in dem Bereich "BackColor" zur Verfügung steht, wie kann ich ihn per VBA definieren ?
Habe z.B. für einen bestimmten Grünton (R: 211, G: 255 & B: 123) versucht, mit dem Ma...
14.05.2010 10:22:42
Thread-ID: 1157008
4 Beiträge
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 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
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 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
3
10
4
3
15
5
6
4
14
7
4
3
11
2
3
6
4
7
7
5
7
5
7