Teste mal...
07.08.2017 16:58:47
Michael
Hallo Stefan,
...folgenden Code:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1) 'anpassen
Dim WbZ As Workbook
Dim FSO As Object, Verz, SubVerz, Datei, Stapel As Collection, Pfad$
Dim Datum As Date, Mappe As String
Application.ScreenUpdating = False
Pfad = Ws.Range("A1").Text 'anpassen
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Stapel = New Collection
Stapel.Add FSO.getfolder(Pfad)
Do While Stapel.Count > 0
Set Verz = Stapel(1)
Stapel.Remove 1
For Each SubVerz In Verz.SubFolders
Stapel.Add SubVerz
Next SubVerz
For Each Datei In Verz.Files
If Datei.datelastmodified > CDate(Datum) Then
Datum = Datei.datelastmodified: Mappe = Datei.Path
End If
Next Datei
Loop
Set WbZ = Workbooks.Open(Datei)
WbZ.Worksheets(1).Copy after:=Wb.Worksheets(Wb.Worksheets.Count)
WbZ.Close False
Set Wb = Nothing: Set Ws = Nothing: Set FSO = Nothing
Set Stapel = Nothing
End Sub
...unter der Annahme der Ziel-Pfad steht in Zelle A1 des ersten Tabellenblattes, in der Mappe, aus der das Makro gestartet wird.
LG
Michael