Abhängige Hintergrundfarbe

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abhängige Hintergrundfarbe

16.11.2007 13:43:00

Hajo_Zi

Hallo Christoph,
mit Formel geht das nicht. Schaue hier https://www.herber.de/forum/messages/926681.html

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

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

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)

Forumthread: Abhängige Hintergrundfarbe

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread