Case Schleife
09.09.2003 15:31:52
Detlef
in meiner Case-Abfrage möchte ich eine
Spalte mit Prozentwerten einfärben.
Von 0% bis 49% sw, 50% bis 89% grün und
ab 90% rot. Mein nachstehender Code funktioniert
aber nur bei max. 6 stellen nach dem Komma (der
Prozentzahl). Da die Prozentzahl per Formel er-
rechnet wird kann diese nicht gerundet werden.
Hat jemand eine Idee per VBA ?
Sub Abfrage()
Dim Bereich As range
Dim Zelle As range
Set Bereich = range("M2:M1416")
For Each Zelle In Bereich
Select Case Zelle.cells
Case "0,00" 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