bedingte Formatierung in VBA
13.05.2005 23:38:26
Tinu
Ich arbeite mit bedingter Formatierung mittels VBA. Dabei sieht mein Code so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C20]) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case 0
.Interior.ColorIndex = 5
Case 2
.Interior.ColorIndex = 4
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub
Nun möchte ich aber einen ganzen Werte-Bereich bedingt formatieren, also z.B. 0-2=rot, 2-5=gelb, etc. Wie kann ich in VBA statt eines bestimmten Wertes einen Werte-Bereich definieren?
Besten Dank für Euere Hilfe.
Tinu
Anzeige