bekomme immer wieder eine fehlermeldung
Was ist daran falsch?
Sheets("Einteiler").Activate
Range("Q2:Q2000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(NICHT(ISTLEER(Q2));WAHR;FALSCH)"
Selection.FormatConditions(1).Interior.ColorIndex = 19
danke gruß
achim h.