|  
                                             
	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 
	  
     |