Makro spinnt oder anwender?
18.11.2005 15:25:03
achim
dieses
Sub funzt nur einzeln gestartet aber nicht in einem prozedur.komisch:-(
hat jemand eine idee wie das besser geht
Sub FarbeFürWertQ()
'Spalte Q2 zelle nicht leer dann gelb
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
End Sub
gruß
achim h.