Hallo, ich habe folgendes Problem: Ich habe ein Makro entwickelt welches über ein Dateiauswahldialog sich einen Excelblatt in Form eines zusätzlichen Reiters reinkopiert,
dieses Excelblatt innerhalb des Makros bearbeitet, weitere Blätter (Reiter) erzeugt und anschließend mit folgendem Codeshnipsel in eine neu erzeugte Datei 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 erzeugen sondern in eine Vorlage 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über kopiert und dann die Vorlage erneut zur Speicherung anbietet? Für eure Hilfe bedanke ich mich im Voraus sehr! |