Bisher wurde deine Datei in ein Unterverzeichnis ..\jahr\monat\ untre dem Namen "reitername" gelegt.
Wenn ich das jetzt richtig verstanden habe, willst du aber in deinem gewünschten Pfad eine Datei in der Form "reitername jahr_monat" haben. Sollte dem so sein, dann vergiss die Msgbox und ändere die
alt: ActiveWorkbook.SaveAs Pfad & Jahr & "\" & Monat & "\" & Reitername, FileFormat:=ThisWorkbook.FileFormat
neu: ActiveWorkbook.SaveAs Pfad & Reitername & " " & Jahr & "_" & Monat, FileFormat:=ThisWorkbook.FileFormat
|