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