Hallo zusammen,
ich habe erst seit kurzem angefangen mich mit Makros auseinanderzusetzen und würde eure Hilfe benötigen :)
ich möchte aus insgesamt zwei externen Dateien (Quellen xlsx) bestimmte Arbeitsblätter in eine neue Excelmappe kopieren, umbenennen und anschließend, soll eine Speicherortauswahl möglich sein.
Aus der 1.Externen Datei, welche geöffnet wird, soll das darin enthaltene Arbeitsblatt mit dem Namen "3" in eine neue Arbeitsmappe unter dem neuen Arbeitsblatt Namen "Aktiva_ALT" kopiert werden. Danach erfolgt das selbe nur mit dem Arbeitsblatt "4", welches auch in die selbe neue Arbeitsmappe unter dem Namen "Passiva_ALT" kopier werden soll.
Danach soll die zweite externe Datei geöffnet werden und es erfolgt analog das selbe Prozedere wie oben, ausser dass der Arbeitsblatt Name sich verändert von "Aktiva_NEU" (Arbeitsblatt "3" von der zweiten externen Datei) und "Passiva_NEU" (Arbeitsblatt "4" von der zweiten externen Datei).
Nachdem alle Arbeitsblätter in eine neue Arbeitsmappe aus den zwei externen Dateien kopiert wurden, sollte eine Speicherortauswahl erfolgen.
Hier ist mein Makro-Ansatz, denn ich mir aus mithilfe anderer Foren aufgebaut habe:
Sub copieren()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'Externe Datei öffnen
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx*", , "Bitte die Datei zum Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
End Sub
Hoffe ihr könnt mir weiterhelfen und es ist halbwegs verständlich meinerseits formuliert :) - Vielen Dank im Voraus!
Beste Grüße
|