Thema Datum  Von Nutzer Rating
Antwort
Rot Fertigen Bericht in eine Vorlage speichern
 25.09.2018 16:17:14 Elvir
Solved

Ansicht des Beitrags:
Von:
Elvir		 Datum:
25.09.2018 16:17:14		 Views:
807		 Rating:
     
Antwort:
 Nein
Thema:
Fertigen Bericht in eine Vorlage speichern
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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fertigen Bericht in eine Vorlage speichern
 25.09.2018 16:17:14 Elvir
Solved