bei nachfolgendem Code werden die Zeilen 3 und 4 mit "Anwendungs- oder objektdefinierter Fehler" quittiert.
Warum?
Range("C1").Select
Do While ActiveCell.Offset(0, -2).Value ""
ActiveCell.FormulaR1C1 = "=TODAY()-RC[-1]"
Selection.NumberFormat = "General"
ActiveCell.Offset(1, 0).Select
Loop
Gruß Werner.