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
|