Formel runterkopieren
22.08.2008 10:10:24
Werner
mit diesem Makro lasse ich eine Formel bis zur letzten beschriebenen Zeile in Spalte A runterkopieren.
Wenn aber in der Spalte A nur ein Eintrag steht, bekomme ich diese Fehlermeldung, ( Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden. ) wie kann ich das verhindern.
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row 'Spalte "A" = 1
Range("C1:D1").AutoFill Destination:=Range("C1:D" & laR)
Gruß Werner
Anzeige