Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel bis Listenende kopieren

Formel bis Listenende kopieren
13.01.2005 12:16:09
Georg
Hallo zusammen, gestern hatte ich schon eine Anfrage zu diesem Thema.
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel bis Listenende kopieren
13.01.2005 12:21:09
Mac4
Hallo georg,
versuchs mal so:

Sub Formel_runter()
Dim iLZ As Long
iLZ = [A65536].End(xlDown).Row
Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(iLZ, 3))
End Sub

Marc
muss das nicht (xlUp) heissen?
magicman
Hallo Marc,
wenn Du in A65536 bist soltest Du besser .end(xlUp).row verwenden, oder nicht?

Sub Formel_runter()
Dim iLZ As Long
iLZ = [A65536].End(xlUp).Row
Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(iLZ, 3))
End Sub

Gruß
Michael
dann ist A leer! oT
Uduuh
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige