Office: Kopieren von Tabellenblaettern

Hallo Community,

ich wuerde gerne einen vorgang bei uns optimieren. Hierzu muessen wir wohl auch noch eine externe programmierfirma hinzu ziehen (grosses projekt) um aber schon einmal einen kleinen vorgeschmack zu praesentieren wollte ich selber eine "Demo" erstellen um zu zeigen wie alles aussehen koennte.

Um meine demo fertig zu stellen fehlt noch ein letzter schritt. Das kopieren von spreadsheets in eine neue exceldatei. Die angehaengte datei wird in zukunft als "lager" verwendet. Die Templates werden dann je nach bedingung in mein neu geoeffnetes workbook kopiert und semi-automatisch mit informationen gefuellt.
Ich habe mit dem Makro recorder das kopiermakro aufgezeichnet doch leider komme ich damit nicht weiter. Es funktioniert nur wenn ich beide dateien auf habe (das ist nicht gut). Kann man das makro so anpassen dass wannimmer ich ein neues Excelworkbook oeffne und diesen code abspiele mir diese 4 sheets kopiert werden? und die "lagerdatei" sich wieder schliesst?

Zur erklaerung des codes, das workbook "new test report" hat ca. 40 templates und stellt das eigentliche "lager" dar. "die "demoversion" habe ich nur erstellt um eine datei zu haben die man im internet verwenden kann. Jedoch gehen wir nun erst einmal davon aus dass die datei demoversion wie das lager funktioniert.

Ich bin schon sehr auf eure meinung gespannt.

LG

LG Nico

Code:

Sub CP() 
' 
' CP Macro 
'copy paste macro 

' 
    Sheets(Array("ELT-T GM", "Stud Push-Pull out")).Select 
    Sheets("Stud Push-Pull out").Activate 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-8 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1 
    ActiveWindow.ScrollWorkbookTabs Sheets:=-6 
    Sheets(Array("ROT-OSC", "Wear-Test", "ELT-T GM", "Stud Push-Pull out")).Select 
    Sheets("ROT-OSC").Activate 
    ActiveSheet.CheckBoxes.Add(276.75, 137.25, 20.25, 15).Select 
    ActiveSheet.CheckBoxes.Add(382.5, 137.25, 20.25, 15).Select 
    ActiveSheet.CheckBoxes.Add(277.5, 135, 21, 15).Select 
    ActiveSheet.CheckBoxes.Add(382.5, 135, 21, 15).Select 
    Sheets(Array("ROT-OSC", "Wear-Test", "ELT-T GM", "Stud Push-Pull out")).Copy _ 
        Before:=Workbooks("Demoversion.xlsx").Sheets(1) 
    Windows("New Test Report.xlsx").Activate 
    Windows("Demoversion.xlsx").Activate 
    Windows("New Test Report.xlsx").Activate 
End Sub

 

hier noch die Datei :)