Supportnet / Forum / Tabellenkalkulation
Bedingte Formatierung auch mit mehr als 3 Bedingungen möglich??
Frage
Hallo!
Mit einer bedingten Formatierung kann ich ja für bestimmte Zellwerte bestimmte Zellformatierungen definieren. Beispielsweise kann ich eine rote Füllfarbe für Zellinhalt "Kunde A", eine blaue Füllfarbe für Zellinhalt "Kunde B" und eine grüne Füllfarbe für "Kunde C" festlegen. Was mache ich jetzt aber, wenn ich noch einen Kunden E, F, G usw. habe? Wo kann man für diese Kunden eine bedingte Formatierung durchführen??
Vielen Dank schon einmal und auch von mir schöne Weihnachtsgrüsse.
Gerry
Antwort 1 von want2cu
Hallo Gerry,
unmittelbar mit der bedingten Formatierung geht das nicht.
Aber mit VBA geht das. Es gab mal hier im SN eine entsprechende anfrage, wo dazu auch eine VBA-Lösung gepostet wurde. Ich finde das Ding leider nur auf die Schnelle nicht.
Es könnte auch sein, dass bei HERBER etc. daztu was gestanden hat.
also: mal hier im ExcelBereich suchen oder warten, bis sich einer besser erinnert als ich.
CU
want2cu
unmittelbar mit der bedingten Formatierung geht das nicht.
Aber mit VBA geht das. Es gab mal hier im SN eine entsprechende anfrage, wo dazu auch eine VBA-Lösung gepostet wurde. Ich finde das Ding leider nur auf die Schnelle nicht.
Es könnte auch sein, dass bei HERBER etc. daztu was gestanden hat.
also: mal hier im ExcelBereich suchen oder warten, bis sich einer besser erinnert als ich.
CU
want2cu
Antwort 2 von want2cu
Hallo Gerry,
ich habe mal eben auf die Schnelle gegoogelt mit den Suchworten "bedingte Formatierung mehr als 3" und dabei folgendes bei herber gefunden (ein Boris hat es geschrieben):
Sub einfaerben()
Dim zelle As Range, durchschnitt As Single
Dim schlecht As Single, sehrgut As Single
durchschnitt = Range("E21").Value
schlecht = durchschnitt - 0.1
sehrgut = durchschnitt + 0.1
For Each zelle In Range("E9:E20")
Select Case zelle.Value
Case Is <= schlecht
farbe = 3
Case Is < durchschnitt
farbe = 4
Case Is = durchschnitt
farbe = 5
Case Is >= sehrgut
farbe = 6
Case Else
farbe = 5
End Select
zelle.Interior.ColorIndex = farbe
Next
End Sub
Das Makro mus manuell gestartet werden.
Einen Button aus der Formularsymbolleiste anlegen und das Makro zuweisen.
Die Farbcodes habe ich nicht angepasst. Aber ich denke, dass kannst du jetzt selbst.
Ich hoffe, der Lösungsansatz hilft dir weiter.
CU
want2cu
ich habe mal eben auf die Schnelle gegoogelt mit den Suchworten "bedingte Formatierung mehr als 3" und dabei folgendes bei herber gefunden (ein Boris hat es geschrieben):
Sub einfaerben()
Dim zelle As Range, durchschnitt As Single
Dim schlecht As Single, sehrgut As Single
durchschnitt = Range("E21").Value
schlecht = durchschnitt - 0.1
sehrgut = durchschnitt + 0.1
For Each zelle In Range("E9:E20")
Select Case zelle.Value
Case Is <= schlecht
farbe = 3
Case Is < durchschnitt
farbe = 4
Case Is = durchschnitt
farbe = 5
Case Is >= sehrgut
farbe = 6
Case Else
farbe = 5
End Select
zelle.Interior.ColorIndex = farbe
Next
End Sub
Das Makro mus manuell gestartet werden.
Einen Button aus der Formularsymbolleiste anlegen und das Makro zuweisen.
Die Farbcodes habe ich nicht angepasst. Aber ich denke, dass kannst du jetzt selbst.
Ich hoffe, der Lösungsansatz hilft dir weiter.
CU
want2cu