Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Copy multiple sheets in new Workbook

Copy multiple sheets in new Workbook
22.03.2020 18:22:44
michel
Hoy zusammen,
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy multiple sheets in new Workbook
22.03.2020 18:28:46
Nepumuk
Hallo michel,
haben die Tabellen die Namen 1, 2, 3, 4 oder ist das der Index der Tabellen? Mit dem Index funktioniert das nämlich nicht.
Gruß
Nepumuk
Anzeige

99 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige