|
Hallo zusammen,
folgendes Problem:
ich hab eine Datei als Vorlage mit mehrern Tabellenblättern.
Es sollen nun mit Hilfe von Makros neue Dateien enstehen, also quasi mehrere Kopien dieser Vorlage.
Als erstes erstelle ich also eine leere Arbeitsmappe:
Sub NeueDatei()
Workbooks.Add
End Sub
Danach kopiere ich die Tabellenblätter aus der Vorlage in die neu erstellte leere Arbeitsmappe:
Sub ArbeitsblätterÜbertragung()'
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", _
Select
Sheets("Tabelle1").Activate
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle13", _
Copy Before:=Workbooks("Mappe1").Sheets(1)
Windows( _ "Vorlage.xlsm" _ ).Activate
End Sub
im ersten Durchgang funktioniert alles.
Im zweiten allerdings nicht, denn die Tabellenblätter werden wieder in Mappe 1 übertragen und nicht in Mappe 2.
Hat jemand eine Idee, was man ändern könnte?
|