Copy multiple sheets in new Workbook
22.03.2020 18:22:44
michel
Ich habe folgenden Code geschrieben, leider kommt immer ein Debuggen beim Tabellen übertragen.
Könnt ihr mir helfen?
Sub NeuesArbeitsblatt()
Dim Quelle As Workbook
Dim Ziel As Workbook
'Quelle und Ziel definieren
Set Quelle = ThisWorkbook
Set Ziel = Workbooks.Add
'Tabelle übertragen
Quelle.Worksheets(Array(1, 2, 3, 4)).copy before:=Ziel.Worksheets(1)
'Warnmeldung ausschalten
Application.DisplayAlerts = False
'Neue Mappe Speicher
Ziel.SaveAs ThisWorkbook.Path & "\Ausgabe.xlsx"
Ziel.Close
Application.DisplayAlerts = True
End Sub