Hallo zusammen,
ich lasse mit einem Makro Formeln in die Zellen C5 bis BB5 schreiben danach sollen die Formeln nach unten kopiert werden, bis zur letzten beschriebenen Zelle in Spalte A. Das geht auch. Nur wenn in der Spalte A nur in der Zelle A5 ein Wert steht und danach keiner mehr oder auch gar kein Wert in der Spalte A ab Zelle5 steht, bekomme ich eine Fehlermeldung in der letzten Zeile des Makros. Wie kann ich das verhindern?
........
.......
.......
'Zellen C5 bis BB5 markieren
Range("C5:BB5").Select
'Formeln runterkopieren bis zur letzten beschriebenen Zelle in Spalte A
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row 'Spalte "A" = 1
Range("C5:BB5").AutoFill Destination:=Range("C5:BB" & laR)
............
............
............
Gruß Werner