Kopieren in freie Zelle
08.10.2015 08:39:29
Jens
ich habe da ein Problem und komme nicht weiter.
Ich habe zwei dateien. Qelle.xlsm und Ziel.xlsm. Ich möchte nun aus der "Qelle" die Zeile B4 bis D4 kopieren.
Diese möchte ich dann in "Ziel" in die nächste freie Zeile einfügen.
Ich möchte so dann mehrere Daten aus "Quelle" kopieren und die in "Ziel" einfügen. Dabei sollen die alten Daten jedoch nicht überschrieben werden.
Vielleicht kann mit ja jemand helfen.
Ich habe bereits Versucht mir einen Code anzupassen jedoch klappt das nicht -.-
Sub KopierenN()
Dim Wkb_Q As Workbooks
Dim Wkb_Z As Workbooks
Set Wkb_Q = Workbooks.Open("Z:\Quelle.xlsm")
Set Wkb_Z = ThisWorkbook.Worksheets("Tabelle2")
Wkb_Q.Range("B4:D4").Copy
Wkb_Z.Range("A" & Wkb_Z.Cells(Wkb_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub