|
Hallo BigBen,
vielen Dank für die Antwort.
Es geht mir nur um diesen Teil, d.h. ich habe die Tabellenblätter "1" "2" "3" und "CSV", in "CSV" wird eine .csv Datei eingelesen.
Nach Ausführung des Makros sind nur die Tabellenblätter "2" und "CSV" vorhanden, "1" und "3" sind weg.
Nach etwas herumspielen, bin ich daraufgekommen, das ich die Werte 2 und (3) für jedes zusätzliche Tabellenblatt um 1 erhöhen muß und das zusätzliche Tabellenblatt im Array mit aufzuführen.
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets(Array("2", "CSV")).Copy Before:=NewBook.Sheets(1)
Application.DisplayAlerts = False
Do While NewBook.Sheets.Count > 2
NewBook.Sheets(3).Delete
|