verfaßt von crowsname, Arnsberg, 21.01.2020, 16:06:06
Hallo zusammen,
Habe mir einen kleinen Code geschrieben um bestimmte Werte von einer Tabelle in die andere zu kopieren. Denke das geht noch kürzer und schöner.
Hat da jemand einen Tipp für mich, wie ich es eben kürzer und schöner mache?
Sub DatenKopieren()
Dim letzte As Long
letzte = Range("A65536").End(xlUp).Row
Workbooks.Open "Hier steht im Code der Pfad zur Zieldatei"
Workbooks("quelle.xlsm").Activate
Worksheets("quelldaten").Activate
Range("C1:C" & letzte).Copy
Workbooks("ziel.xlsm").Activate
Worksheets("zielbereich").Activate
Range("A1:A" & letzte).PasteSpecial
Workbooks("quelle.xlsm").Activate
Worksheets("quelldaten").Activate
Range("D1:D" & letzte).Copy
Workbooks("ziel.xlsm").Activate
Worksheets("zielbereich").Activate
Range("K1:K" & letzte).PasteSpecial
Workbooks("quelle.xlsm").Activate
Worksheets("quelldaten").Activate
Range("E1:E" & letzte).Copy
Workbooks("ziel.xlsm").Activate
Worksheets("zielbereich").Activate
Range("J1:J" & letzte).PasteSpecial
Workbooks("quelle.xlsm").Activate
Worksheets("quelldaten").Activate
Range("F1:F" & letzte).Copy
Workbooks("ziel.xlsm").Activate
Worksheets("zielbereich").Activate
Range("L1:L" & letzte).PasteSpecial
End Sub
--
MfG
Michael
-------------------------------------
Personal Training und Ernährungsberatung
http://www.dein-bpc.de
Natürliche Baustoffe:
http://www.auro-online.de
Getreidemühlen und Zubehör:
http://www.getreidemuehlen.de
Sport in Arnsberg:
http://www.personaltraining-nh.de/Home
gesamter Thread: