VBA in Farbe
01.04.2016 09:22:45
Tim
in der Spalte I habe ich eine Formel drin
=WENN(F2=0;"keine Daten";SUMME(1-H2))
Und die Spalte bzw. Zelle ist mit % formatiert mit 0 nachstellen.
jetzt möchte ich gerne die Zellen nach folgenden Kriterien markiert haben.
Sub Farbe()
Dim zelle As Range
Set Bereich = Range("I2:I8000")
For Each zelle In Bereich
Select Case zelle.Value
Case Is = "keine Daten"
zelle.Interior.ColorIndex = 9
Case Is 81
zelle.Interior.ColorIndex = 4 'grün
End Select
Next zelle
End Sub
Aber irgendwie geht das nicht. Was mache ich falsch?
Danke an Alle
TIM