Prozentwerte-Bereich mit VBA lokalisieren
25.02.2009 16:20:20
benito
möchte Prozentwerte aus einer Spalte, die >= 30% liegen, rot einfärben:
Sub Test()
Dim cel As Range
Dim ws As Worksheet
Set ws = ActiveWindow.ActiveSheet
For Each cel In Worksheets("Industrial").Range("H7:H25")
If cel.Value >= 0.3 Then
Worksheets("Industrial").Range("H7:H25").Font.Color = RGB(255, 0, 0)
End If
Next cel
End Sub
Es werden aber alle Werte rot eingefärbt?
Ich finde den Fehler nicht. Bitte um Hilfe.
Besten Dank
Benito
Anzeige