ich stehe vor einem Problem, welches ich auch durch lange Recherche hier im Forum nicht lösen konnte.
Aber vielleicht hat ja jemand von Euch eine Idee.
Ich habe eine Mappe mit ca 55 Blättern.
Die Blätter möchte ich einzeln in neue Arbeitsmappen kopieren und unter dem jeweiligen Sheetnamen abspeichern. Soweit so gut.
Allerdings befinden sich in der Mappe zwei Blätter ("Help" und "Data") die ebenfalls immer mit den einzelnen Blättern kopiert und abgespeichert werden sollen. In den 53 neuen Mappen sollen sich also jeweils das Blatt "Help", "Data" und eines der 53 einzelnen Blätter befinden.
Mein Code funktioniert leider nicht und ich hoffe auf gute Vorschläge von Euch:
Sub alle_Tab_als_Datei()
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(Array("Help", "Data" , i)).Copy
ActiveWorkbook.SaveAs Sheets(i).Name
ActiveWorkbook.Close
Next
End Sub
Vielen lieben Dank!