Auswertung
04.09.2003 15:18:22
Detlef
in meiner Abfrage überprüfe ich eine
Spalte mit Prozentwerten. Bei bis 49%
soll der die Schriftfarbe sw, ab 50 bis
89 % grün und ab 90 % rot sein.
Manche Zellen z.B. 7% werden bei diesen
Code einfach in Schriftfarbe rot umgewandelt.
Der Werte dieser Zelle ist 7,32275132275132% habe
aber nur 2. Dezimalstellen eingeblendet !
Hat jemand eine Idee ?
Sub Auswertung
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("M2:M1416")
For Each Zelle In Bereich
Select Case Zelle.Value
Case "0,0" To "0,49"
Zelle.Font.ColorIndex = 0
Zelle.Font.Bold = True
Case "0,50" To "0,89"
Zelle.Font.ColorIndex = 50
Zelle.Font.Bold = True
Case Is >= "0,90"
Zelle.Font.ColorIndex = 3
Zelle.Font.Bold = True
End Select
Next
End Sub