|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Fertigen Bericht in eine Vorlage speichern |
25.09.2018 16:08:01 |
Elvir |
|
|
|
25.09.2018 16:15:12 |
Gast29278 |
|
|
|
25.09.2018 16:33:21 |
Gast90924 |
|
|
Von:
Elvir |
Datum:
25.09.2018 16:08:01 |
Views:
856 |
Rating:
|
Antwort:
|
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
'ActiveWorkbook.Colors = Workbooks(Name_Makrodatei).Colors
frm_Abfrage_Speicherort.Show 'Application.Dialogs(xlDialogSaveAs).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!
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Fertigen Bericht in eine Vorlage speichern |
25.09.2018 16:08:01 |
Elvir |
|
|
|
25.09.2018 16:15:12 |
Gast29278 |
|
|
|
25.09.2018 16:33:21 |
Gast90924 |
|
|