|
Hallo zusammen,
ich habe ein Problem in einer Prozedur, mit der ich in einer Spalte Werte zwischen einer Unter- und Obergrenze mit einer Farbe füllen möchte.
Mein Code für die Prozedur sieht so aus:
For z = 2 To anzahl_zeilen
erm_Wert = Cells(z, 2).Value
If erm_Wert > untere_grenzwert And erm_Wert < obere_grenzwert Then
Cells(z, 2).Interior.Color = RGB(255, 0, 0)
anzahl_grenzwerte = anzahl_grenzwerte + 1
ElseIf erm_Wert < untere_grenzwert Or erm_Wert > obere_grenzwert Then
Cells(z, 2).Interior.Color = RGB(255, 255, 255)
End If
Next z
Wenn ich jetzt zum Beispiel als unteren Grenzwert 80 und oberen Grenzwert 90 eintrage, sollte er ja eigentlich alle Zellen mit Inhalten zwischen 80,1 und 89,9 mit rot füllen. Es passiert aber leider nichts.
Habe es auch schon mit zwei in einander verschachtelten If's versuchst. Hierbei sehe ich dass nicht mal die erste Bedingung erfüllt wird, obwohl der ermittelte Wert größer als der untere Grenzwert ist.
Habt ihr vielleicht eine Idee, woran das liegen kann?
Danke schon mal für die Hilfe.
Viele Grüße
Tim
|