Formel bis Listenende kopieren
13.01.2005 12:16:09
Georg
ES geht um eine dynamische Tabelle, wobei eine Formel in C2 bis zum Listenende kopiert werden soll.
Mir wurde dahingehend auch geholfen mit dem unten stehenden code. Problem hierbei ist allerdings, dass die Formel bis zur Zeile 65000 runterkopiert wird.
Diese sollte aber nur bis zum Listenende gehen. DAs muss doch irgendwie mit set Bereich gehen! Hat jemand da eine Anwort?
Dank vorab.
Sub Formel_runter()
Dim iLZ As Long
iLZ = Cells(1, 1).End(xlDown).Row
Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(iLZ, 3))
End Sub
Gruss Georg