Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abhängige Hintergrundfarbe

Abhängige Hintergrundfarbe
16.11.2007 13:39:36
Christoph
Hallo zusammen!
Habe folgendes Problem:
Ich habe mehrere Excel-Zellen mit Formeln belegt und möchte nun die Ergebnisse farblich darstellen. Also die Hintergrundfarbe soll sich dem Wert der Zelle anpassen.
Bspl.:
Zelle1 hat den Wert 1 - Hintergrund soll rot dargestellt werden.
Zelle1 hat den Wert 5 - Hintergrund soll grün dargestellt werden.
Zelle1 hat den Wert 10 - Hintergrund soll blau dargestellt werden.
Zelle1 hat den Wert 15 - Hintergrund soll gelb dargestellt werden.
Zelle1 hat den Wert 20 - Hintergrund soll lila dargestellt werden.
Zelle1 hat den Wert 25 - Hintergrund soll orange dargestellt werden.
Mit der bedingten Formatierung kann ich nur 3 Bedingungen definieren - ich brauche aber mehr...
Mir wurde schon ein Add-In angeboten, allerdings kann ich hier in der Firma nichts installieren...
Ich suche also nach einer Funktion die ca. so lautet:
"WENN(A1=5;Hintergrundfarbe=grün;Hintergrundfarbe=weiß)
Wäre schön, wenn mir da jemand weiter helfen könnte.
Vielen Dank schon im Vorraus.
MfG
Christoph Rieger

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

Betreff
Datum
Anwender
Anzeige
AW: Abhängige Hintergrundfarbe
16.11.2007 13:51:00
Mag
Hi,
z.B. für den Bereich "A1:A6":

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A6")) Is Nothing Or Target.Count > 1 Then Exit Sub
Select Case Target
Case 1 'rot
Target.Interior.ColorIndex = 3
Case 5 'grün
Target.Interior.ColorIndex = 10
Case 10 'blau
Target.Interior.ColorIndex = 5
Case 15 'gelb
Target.Interior.ColorIndex = 6
Case 20 'lila
Target.Interior.ColorIndex = 13
Case 25 'orange
Target.Interior.ColorIndex = 46
Case Else 'weiss
Target.Interior.ColorIndex = 0
End Select
End Sub


Gruss

Anzeige
AW: Abhängige Hintergrundfarbe
16.11.2007 13:53:18
Mag
... ähh, 'Or Target.Count > 1' weglassen ...

AW: Abhängige Hintergrundfarbe
16.11.2007 14:11:00
Hajo_Zi
Hallo Mag,
markiere mal mehr Zellen einschl. A1 und beende dann die Eingabe mit Strg+Enter.
Gruß Hajo

ähh, Worksheet_Change
16.11.2007 14:14:13
Renee
Hi Mag,
Originalthread: Ich habe mehrere Excel-Zellen mit Formeln
Da wird dein Vorschlagsmakro gewisse Mühe bekunden...
GreetZ Renee

AW: ähh, Worksheet_Change
16.11.2007 16:17:49
Mag
... stimmt, das hab' ich glatt überlesen, ...

AW: Abhängige Hintergrundfarbe
16.11.2007 21:43:13
Mag
... der Vollständigkeit halber:

Private Sub Worksheet_Change(ByVal Target As Range)
'Bereich 1 der überwacht bzw. eingefärbt wird, z.B.: A1:A6
'Bereich 2 der in Abhängigkeit (Formeln) zum Bereich 1 steht, z.B.: B1, C1:D2
Dim rng As Range
If Intersect(Target, Range("B1", "C1:D2")) Is Nothing Then Exit Sub
For Each rng In Range("A1:A6")
Select Case rng
Case 1 'rot
rng.Interior.ColorIndex = 3
Case 5 'grün
rng.Interior.ColorIndex = 10
Case 10 'blau
rng.Interior.ColorIndex = 5
Case 15 'gelb
rng.Interior.ColorIndex = 6
Case 20 'lila
rng.Interior.ColorIndex = 13
Case 25 'orange
rng.Interior.ColorIndex = 46
Case Else 'weiss
rng.Interior.ColorIndex = 0
End Select
Next
End Sub


Gruss

Anzeige
AW: Abhängige Hintergrundfarbe
19.11.2007 07:50:03
Mag
... ggf.
'If Intersect(Target, Range("A1:A6", "B1", "C1:D2")) Is Nothing Then Exit Sub'
dann werden bereits beim Eingeben der Formeln die Farben aktualisiert.
Gruss

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige