Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1748to1752
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
Inhaltsverzeichnis

Bed. Formatierung:Gleiche Farbe wie A1

Bed. Formatierung:Gleiche Farbe wie A1
10.04.2020 15:04:14
ChrisW
Hallo Leute,
ich suche eine Möglichkeit mittels bedingter Formatierung ein Formular in allen Zellen eines Bereiches mit der gleichen Farbe einzufärben wie die Farbe aus zB. A1.
Also wenn Zelle A1 Gelb ist, dann sollen alle Zellen die im Formular nicht ausgelesen werden,also praktisch alles was als Formularumgebung verwendet wird mit der Farbe der oberen Formular-ecke A1 gefüllt werden.
Ich stelle mir vor, das man das mit Bedingter Formatierung machen kann, indem alle zu färbenden Zellen mit der gleichen Bedingten Formatierungsformel bestückt werden.
So nach dem Motto
in der Zelle A1 steht mittels Formel die Hintergrund-Farbnummer der Zelle A1:
"Wenn Zelle A1 = "XXX", dann färbe diese Zelle in der Farbe von Zelle A1"
Beispieldatei:
Zelle A1 ist orange eingefärbt und hat die Hintergrundfarbnummer 44
https://www.herber.de/bbs/user/136606.xlsm
Alle anderen orangen Zellen sind von mir per Hand orange gefärbt, sollen aber per "Bedingte Formatierung" eingefärbt werden in der Farbe 44. Wenn ich die Farbe in A1 änder, sollen auch die anderen farbigen Zellen diese Farbe annehmen.
Könnt ihr mir hier weiterhelfen?
Vielen Dank
ChrisW

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bed. Formatierung:Gleiche Farbe wie A1
10.04.2020 15:10:37
ChrisW
Sorry, keine Ahnung warum meine Anfrage 4 mal gepostet wurde
ChrisW
VBA-Lösung
10.04.2020 16:30:27
Beverly
Hi Chris,
benutze das Calculate-Ereignis des Tabellenblattes, um die Farbe direkt zu ändern:
Private Sub Worksheet_Calculate()
Dim rngZelle As Range
For Each rngZelle In Range("B3:G11")
If rngZelle.Interior.ColorIndex  xlNone Then
rngZelle.Interior.Color = Range("A1").Interior.Color
End If
Next rngZelle
End Sub


AW: VBA-Lösung
10.04.2020 20:26:45
ChrisW
Hallo Karin,
vielen Dank das hat mir weitergeholfen, war aber nicht die Lösung mit Bedingter Formatierung, wobei ich nicht weiß ob es da eine Lösung gibt ;c)
Danke schon mal
und ein schönes Osterfest
LG
ChtrisW
Anzeige
AW: VBA-Lösung
10.04.2020 23:39:43
Beverly
Hi Chris,
bei der bedingten Formatierung kannst du zwar als Bedingung den Zahlenwert aus einer Zelle zur Grundlage nehmen, aber nicht zur Festlegung der gewünschten Farbe. Du müsstest also für jede Zahl (respektive Farbe) eine eigene bedingte Formatierung erstellen und dieser dann die gewünschte Farbe zuweisen - bei mehr als 1 Mio möglicher Farben ein Ding der Unmöglichkeit...


Eine derartigte BedingtFormatierung ...
11.04.2020 14:05:07
Luc:?
…müsste ebenfalls per VBA erstellt wdn, Chris,
was ganz ähnlich aussähe wie Beverlys Pgm, nur eben mit Farbübernahme für den True-Fall der Regel-Fml. Vorteil: Bei NichtmehrErfüllung der Regel erscheint die ursprüngliche ZellFarbe wieder, bei DirektFärbung nur, wenn man das vorsieht und die ursprüngliche ZellFarbe dafür merkt.
OsterGruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …
Anzeige
Ok verstanden - Lieben Dank o.T.
11.04.2020 14:10:37
ChrisW
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige