Hallo,

ich habe folgendes Problem: Ich habe ein Makro in einem Woorkbook entwickelt welches über ein Dateiauswahldialog sich einen Excelblatt in Form eines zusätzlichen Reiters reinkopiert, dieses Excelblatt innerhalb des Woorkbooks mit dem Makro bearbeitet, weitere Blätter (Reiter) erzeugt und anschlie?end mit folgendem Codeshnipsel in eine neu erzeugte Datei Woorkbook alle Reiter rüberkopiert und zum speichern via eine Speicherabfrageform anbitet:

Name_Makrodatei = ActiveWorkbook.Name 

Sheets("alle").Move 

Name_Auswertedatei = ActiveWorkbook.Name 

Workbooks(Name_Makrodatei).Activate 

Sheets("Infoblatt").Copy After:=Workbooks(Name_Auswertedatei).Sheets(1) 

Workbooks(Name_Makrodatei).Activate Sheets("Deltabericht").Select 

Sheets("Deltabericht").Copy After:=Workbooks(Name_Auswertedatei).Sheets(1) 

Workbooks(Name_Makrodatei).Activate 

Sheets("Neuanlagebericht").Select 

Sheets("Neuanlagebericht").Copy After:=Workbooks(Name_Auswertedatei).Sheets(1) 

Sheets("alle").Select 


frm_Abfrage_Speicherort.Show 

Name_Auswertedatei = frm_Abfrage_Speicherort.TextBox_Speicherort.Value & ".xlsx" '".xlsx" 

Pfad_Auswertedatei = ThisWorkbook.Path & "\" & Name_Auswertedatei 

ActiveWorkbook.SaveAs Filename:=Pfad_Auswertedatei 

Workbooks(Name_Auswertedatei).Close SaveChanges:=False 

Workbooks(Name_Makrodatei).Activate 

'nochmal oeffnen und unter demselben Namen abspeichern, um Excel2010-Inkompatibilit‰t zu umgehen (beim Wieder-Oeffnen der Auswertedatei 

Workbooks.Open Pfad_Auswertedatei 

Application.DisplayAlerts = False 

ActiveWorkbook.SaveAs Filename:=Pfad_Auswertedatei 

Application.DisplayAlerts = True 

Workbooks(Name_Auswertedatei).Close SaveChanges:=False 

Workbooks(Name_Makrodatei).Activate 

Mein Problem ist aber ich möchte diese Reiter nicht in ein neues Workbook kopieren sondern in eine Vorlage Vorlage.xltm denn diese Vorlage enthält ein weiteres Makro was ich später verwenden möchte. Wie kann ich den oben aufgeführten Code verändern das er anstatt eine neue Workbook meine Vorlage öffnet
und die Reiter in die Vorlage rüberkopiert und dann die Vorlage erneut zur Speicherung (Namensauswahl) anbietet?

Für eure Hilfe bedanke ich mich im Voraus sehr!

Elvir