Zellfarbe
20.12.2013 23:19:43
Uwe
ich möchte, wenn der Wert in Spalte E 1,6 überschreitet die Zeile rot gefärbt wird, wenn der Wert 1,5 unterschreitet soll grün gefärbt werden. Alles dazwischen gelb.
Mit folgendem Code werden die Zeilen zwar gefärbt, aber nicht nach dem gewünschten Schema. Ich steh grad auf dem Schlauch. Was hab ich falsch gemacht?
Bin für jeden Hinweis dankbar.
Grüße Uwe
If Cells(i, 5) > 1.6 Then
Range(Cells(i, 1), Cells(i, 7)).Interior.Color = vbRed
If Cells(i, 5) Range(Cells(i, 1), Cells(i, 7)).Interior.Color = vbGreen
Else
Range(Cells(i, 1), Cells(i, 7)).Interior.Color = vbYellow
End If
End If