Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige