Hallo an alle im Forum,

For c = 2 To 500
If Cells(2, c).Value >= 1,5 Then
Cells(2, c).Style = "Schlecht"
End If
Next c

Mit dem Code versuche ich für alle Werte in Splate B die größer als 1,5 sind, die jeweilige Zelle einzufärben. Das .Style = "Schlecht" habe ich durch den Makro-Recorder herausgefunden.

Klappt aber leider nicht. Habe es früher immer mit bedingter Formatierung gemacht, aber wollte es nun mit nem Makro umsetzen.

Kennt sich jemand damit aus?

Carsten