Kopieren und Einfügen zwischen zwei Excel Dateien
23.01.2018 15:37:10
Silke
benötige zwei kleine Hilfestellungen.
Ich habe zwei Excel Dateien und möchte einzelne Inhalte von der einen in die andere Datei kopieren bzw. einfügen. Wie mache ich das ohne dass ich ständig hin und her springen muss? Funktioniert das irgendwie einfacher als meine Lösung? (Abgeänderte Makro-Recorder Aufzeichnung)
Des weiteren ändert sich der Namen der einen Datei immer wieder. Da diese Ausführung monatlich gemacht wird. Sprich aus der Datei "PD - Lohn & Gehalt 2017-11" wird beim nächsten mal die Datei "PD - Lohn & Gehalt 2017-12"
Gibt es hierzu auch eine Lösung?
Ich habe das Makro unter der persönlichen Arbeitsmappe abgespeichert so dass schnell darauf zugegriffen werden kann ohne den Code immer wieder kopieren zu müsssen.
Hier mein Code:
Sub Copy_Paste()
' Copy_Paste Makro
' Kopieren der Daten und Einfügen in die Makro-Liste
Windows("PD - Lohn & Gehalt 2017-11 (Original).xlsm").Activate
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Copy
Windows("Exact-Excel-to-XML-ENTRIES-Lohn.xls").Activate
Range("P12").Select
ActiveSheet.Paste
Windows("PD - Lohn & Gehalt 2017-11 (Original).xlsm").Activate
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Copy
Windows("Exact-Excel-to-XML-ENTRIES-Lohn.xls").Activate
Range("D12").Select
ActiveSheet.Paste
Windows("PD - Lohn & Gehalt 2017-11 (Original).xlsm").Activate
Range("I2").Select
Range(Selection, Selection.End(xlDown)).Copy
Windows("Exact-Excel-to-XML-ENTRIES-Lohn.xls").Activate
Range("M12").Select
ActiveSheet.Paste
End Sub
Danke euch für die Hilfe
LG Silke