Formatierung mit mehr als 3 Bedingungen
28.07.2005 17:32:08
andi
möchte eine bedingte Formatierung mit mehr als 3 Bedingungen, genauer gesagt mit 4 per VBA realisieren.
Abhängig von den Werten in den Zeilen 6,7,8. In Zeile 6 steht beispielsweise der Wert 60 und in Zeile 7 der Wert 0,1 und in Zeile 8 der Wert 0,2.
Jetzt möchte ich in den Zeilen 10-60 die Werte formatieren: ist der Wert zwischen 60,01 und 59,08 grün färben. Ist der Zellwert 20% anders als die obere oder untere Grenze soll er orange sein, ist er weiter außerhalb soll er rot sein.
Habe folgendes Makro gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Value
Case 1: .Interior.ColorIndex = 3 'rot
Case "test": .Interior.ColorIndex = 5 'blau
'usw.
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
End Sub
Möchte aber nicht das Worksheet_Change Ereignis, sondern abhängig vom Zellwert prüfen.
Mein größtes Problem: Die Werte in Spalte 10-60 prüfen. Die Werte stehen schon in der Mappe drinnen.
Wäre sehr nett, wenn mir jemand helfen könnte.
Gruß Andreas
Anzeige