dynamische Zelle zum Einfügen (Letzte Zeile)

Hallo,
der Code:
wbQuelle.Activate
ActiveSheet.Range("F6:F" & LetzteZeile).Copy
wbZiel.Activate
ActiveSheet.Paste Destination:=ActiveSheet.Range("B2:B" & LetzteZeile)
kopiert aus der Quelldatei die Spalte F (F6 bis letzte beschriebene Zeile) und fügt sie in ein anderes Blatt in Spalte B ein.
Jetzt will ich aus der Quelldatei die Spalte N kopieren und Sie wieder in die neue Datei in Spalte B einfügen. Aber unter die zuvor eingefügten Daten!
wbQuelle.Activate
ActiveSheet.Range("N6:N" & LetzteZeile).Copy
wbZiel.Activate
ActiveSheet.Paste Destination:=ActiveSheet.Range("B2:B" & LetzteZeile)
die 2 müsste jetzt also die letzte beschriebene Zelle beinhalten (+1)
Ich habe diverse Forenbeiträge probiert, klappt aber alles nicht.
Danke für Hilfe,
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Kopieren

21.01.2013 16:53:01

Backowe

Kleiner Fehler beseitigt ;-)

21.01.2013 17:00:40

Backowe

AW: Kopieren

21.01.2013 17:29:53

David

AW: Kopieren

21.01.2013 17:47:25

Backowe

AW: Kopieren

22.01.2013 09:38:08

David

Sub Kopiervorgang() With wbQuelle .Range("F6:F" & .Cells(Rows.Count, "F").End(xlUp)).Copy _ Destination:=wbZiel.Range("B2") .Range("N6:N" & .Cells(Rows.Count, "N").End(xlUp)).Copy _ Destination:=wbZiel.Range("B" & Cells(Rows.Count, "B").End(xlUp) + 1) End With End Sub

Sub Kopiervorgang() With wbQuelle .Range("F6:F" & .Cells(Rows.Count, "F").End(xlUp)).Copy _ Destination:=wbziel.Range("B2") .Range("N6:N" & .Cells(Rows.Count, "N").End(xlUp)).Copy _ Destination:=wbziel.Range("B" & wbziel.Cells(Rows.Count, "B").End(xlUp) + 1) End With End Sub

Hallo,
vielen Dank.
Hat erst nicht funktioniert, ich habe aber die in meinen Augen relvante zeile separiert und leicht angepasst, dann liefs:
Also statt:
ActiveSheet.Paste Destination:=ActiveSheet.Range("B2:B" & LetzteZeile)
diese Zeile
ActiveSheet.Paste Destination:=ActiveSheet.Range("B" & ActiveSheet.Cells(Rows.Count, "B").End(xlUp) + 1)
Leider werden die kopierten Daten jetzt ins neue Sheet in Zeile 19554 eingefügt, obwohl Spalte A nur bis Zeile 20 gefüllt war.
Ich würde darum gerne das neue File erst nach gefüllten zeilen filtern:
Dim LetztegefuellteZeile As Long
=
Columns(1).AutoFilter Field:=1, Criteria1:=">0"
LetztegefuellteZeile = Cells(Rows.Count, 1).End(xlUp).Row
Columns(1).AutoFilter
=
ActiveSheet.Paste Destination:=ActiveSheet.Range("A" & LetztegefuellteZeile.End(xlUp) + 1)
geht aber nicht: Ungültiger Bezeichner
Danke

Beliebteste Forumthreads (12 Monate)

dynamische Zelle zum Einfügen (Letzte Zeile)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamische Zelle zum Einfügen (Letzte Zeile)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread