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
Sub BlaetterKopieren()
Dim wb As Workbook
Dim sh As Worksheet
Dim shName As String
Dim i As Long
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, 5) = "Datum" Then
Set wb = Application.Workbooks.Add()
.Copy wb.Sheets(1)
End If
Next sh
End Sub
Gruß Pierre