wieso erscheint die zu öffnende Datei doppelt und kann somit nicht geöffnet .
Anbei die Datei (vom Internet)
https://www.herber.de/bbs/user/159905.xlsm
Danke!
Gruß
Mirel
For Each unterordner In fld.subfolders
If unterordner.subfolders.Size > 0 Then SubTreeAufbauen unterordner
Next unterordner
Anstatt den Code der dabei war.