Thema Datum  Von Nutzer Rating
Antwort
Rot Bericht in Vorlage speichern
 25.09.2018 16:31:38 Elvir
Solved
26.09.2018 10:58:36 Gast59135
Solved

Ansicht des Beitrags:
Von:
Elvir		 Datum:
25.09.2018 16:31:38		 Views:
960		 Rating:
     
Antwort:
 Nein
Thema:
Bericht in Vorlage speichern

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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Bericht in Vorlage speichern
 25.09.2018 16:31:38 Elvir
Solved
26.09.2018 10:58:36 Gast59135
Solved