|
Hallo,
folgendes Problem: Ich möchte Daten aus verschiedenen Tabellenblättern, einer Arbeitsmappe, in eine andere Arbeitsmappe übertragen.
Das funktioniert mit folgendem Code auch schon relativ gut:
Sub Kopieren_einfach()
Workbooks("Testdatei mit Geräten.xlsm").Worksheets("001").Range("C9:E12").Copy _
Workbooks("Test übernahme Geräte.xlsm").Worksheets("001").Range("C9:E12")
Workbooks("Testdatei mit Geräten.xlsm").Worksheets("001").Range("H9:J12").Copy _
Workbooks("Test übernahme Geräte.xlsm").Worksheets("001").Range("H9:J12")
Workbooks("Testdatei mit Geräten.xlsm").Worksheets("001").Range("M9:N10").Copy _
Workbooks("Test übernahme Geräte.xlsm").Worksheets("001").Range("M9:N10")
Workbooks("Testdatei mit Geräten.xlsm").Worksheets("001").Range("L12").Copy _
Workbooks("Test übernahme Geräte.xlsm").Worksheets("001").Range("L12")
Workbooks("Testdatei mit Geräten.xlsm").Worksheets("001").Range("N11:N12").Copy _
Workbooks("Test übernahme Geräte.xlsm").Worksheets("001").Range("N11:N12")
End Sub
Allerdings stellt sich mir die Frage ob man den Code noch etwas optimieren kann, da es doch einen moment dauert bis die Daten kopiert sind. Habe auf die Schnelle keine Alternative gefunden?!
Ist es außerdem möglich den Code so zu erweitern, dass alle Tabellenblätter unabhängig vom Dateinamen durchlaufen werden?
Über Antworten wäre ich sehr dankbar!
MfG Lukas
|