Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Sheets in neuer Datei speichern

Forumthread: Mehrere Sheets in neuer Datei speichern

Mehrere Sheets in neuer Datei speichern
21.05.2021 09:15:46
Chris
Hallo zusammen,
ich habe einen Datei, die mehrere Tabellenblätter mit dem String "Datum" im Blattnamen enthält.
Ich möchte per VBA alle dies Sheets, welche "Datum" im Namen tragen in eine einzige, neue Datei abspeichern.
Wie löst man so etwas?
Vielen Dank,
Chris
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelt posten hilft sicher nicht (owT)
21.05.2021 09:39:18
EtoPHG

AW: Mehrere Sheets in neuer Datei speichern
21.05.2021 09:51:18
UweD
Hallo
so?

Sub Datum_extra()
Dim TB As Worksheet, WB As Workbook
Dim TMP As Boolean
For Each TB In ThisWorkbook.Sheets
If InStr(TB.Name, "Datum") > 0 Then
If Not TMP Then
TB.Move
Set WB = ActiveWorkbook
TMP = True
Else
TB.Move After:=WB.Sheets(WB.Sheets.Count)
End If
End If
Next
'WB.Saveas ...
End Sub
LG UweD
Anzeige
AW: Mehrere Sheets in neuer Datei speichern
21.05.2021 09:54:39
Worti
Moin Chris,
zb. so:

Sub Baetter_Kopieren()
Dim wb1 As Workbook, wb2 As Workbook
Dim ws As Worksheet
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Add
For Each ws In wb1.Worksheets
If InStr(1, UCase(ws.Name), "DATUM") > 0 Then
ws.Copy after:=wb2.Worksheets(wb2.Worksheets.Count)
End If
Next ws
wb2.Close True, "Neue-Mappe.xlsx"
Set wb1 = Nothing
Set wb2 = Nothing
End Sub
Gruß Worti
Anzeige
AW: Mehrere Sheets in neuer Datei speichern
21.05.2021 11:01:58
Chris
Vielen Dank UweD und Worti, beides perfekt! Super!
Gruß
Chris

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige