Ich habe ein Makro, welches sämtliche Dateien in einem Verzeichnis in einer Datei zusammenführt. Das funktioniert auch so weit. Das Problem ist nun, dass sich nicht alle Dateien im gleichen Verzeichnis sondern sich in vielen verschiedenen Unterverzeichnissen befinden (z.B. R:\Products\Portfolio 2016\Products per Store\1, R:\Products\Portfolio 2016\Products per Store\2, R:\Products\Portfolio 2016\Products per Store\3). Meine VBA-Kenntnisse sind aber nicht so gut, dass ich das Makro entsprechend anpassen könnte. Könnt ihr mir da weiterhelfen?
Hier mein Makro:
Sub Zusammenfassen_FS()
Dim FileArray() As Variant
Dim FileName As Variant
Dim FileCount As Integer
FileCount = 0
FileName = Dir("R:\Products\Portfolio 2016\Products per Store\*FS*_PortfolioManagement.xlsm" _
_
)
If FileName = "" Then GoTo NoFilesFound
ActiveWorkbook.Windows(1).Caption = "Overview"
Do While FileCount 1 Then
Range("A65536").End(xlUp).Offset(1, 0).Select
Else
Range("A2").Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
'ActiveWorkbook.Close savechanges:=False
Windows("ABC").Close savechanges:=False
FileList = FileArray
FileName = Dir()
Loop
' Datei mit dem aktuellen Datum im Dateinamen abspeichern
ActiveWorkbook.SaveAs FileName:= _
"R:\Products\Portfolio 2016\Products per Store\" & "Summary_FS_" & Format(Date$, "YYYY- _
_
MM-DD") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("A1").Select
NoFilesFound:
FileList = False
End Sub
Danke schon im Voraus!
Liebe Grüsse
Lena