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
|