mit folgendem Code ändere ich markierte Zellen:
Sub Zelle_Urlaub_rot()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Selection
If Not (IsEmpty(c)) Then
c.FormulaR1C1 = "U"
c.Interior.Color = 255
End If
Next c
Application.ScreenUpdating = True
End Sub
Wie kann dieser Code so umgeschrieben werden, das nur Zellen geändert werden deren Inhalt grösser "" ist?Gruß Valeri