Kopieren in freie Zelle

Bild

Betrifft: Kopieren in freie Zelle
von: Jens
Geschrieben am: 08.10.2015 08:39:29

Hallo zusammen,
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
Grüße Jens

Bild

Betrifft: Doppelt und zu! (owT)
von: EtoPHG
Geschrieben am: 08.10.2015 08:47:50


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren in freie Zelle"