Case Abfrage
24.05.2002 09:19:20
Detlef
habe noch ein kleines Problem
mit meiner Case-Abfrage.
Ich in einer Spalte Prozentzahlen
und möchte je nach Wert farblich kenn-
zeichnen.
bis 49% schwarz
ab 50 % grün
ab 90 % rot
Sub Schriftfarbe()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("M2:M1416")
For Each Zelle In Bereich
Select Case Zelle.value
Case "1%" To "49%"
Zelle.Font.ColorIndex = 0
Case "50%" To "89%"
Zelle.Font.ColorIndex = 4
Case Is > "90"
Zelle.Font.ColorIndex = 3
End Select
Next
End Sub
Beim ausführen meines Makros passiert gar nichts !
Hat jemand eine Idee ?
Anzeige