Noch eine Hürde: Zum Teil enthalten die die Arbeitsmappen mehrere Blätter, von denen nur das Blatt übernommen werden soll, dessen Name mit "HZ" beginnt.
Für einen Tipp wäre ich sehr sehr denkbar.
Für einen Tipp wäre ich sehr sehr denkbar.
Option Explicit
Public Sub DateienZusammenfuhren()
Dim wrbs As Workbooks
Dim wrb As Workbook
Dim wrbAlleZusammen As Workbook, strAlleZusammenName As Variant
Dim wks As Worksheet
strAlleZusammenName = Application.GetSaveAsFilename(InitialFilename:="Alle", _
FileFilter:="MS Excel Files (*.xls), *.xls")
If strAlleZusammenName <> False Then
Set wrbAlleZusammen = Application.Workbooks.Add
wrbAlleZusammen.SaveAs strAlleZusammenName
Else
End
End If
Set wrbs = Application.Workbooks
For Each wrb In wrbs
If wrb.Name <> wrbAlleZusammen.Name Then
For Each wks In wrb.Worksheets
If Left(wks.Name, 2) = "HZ" Then _
wks.Copy Before:=Workbooks(wrbAlleZusammen.Name).Sheets(1)
Next wks
End If
Next wrb
End Sub