Hallo Mark,

ich habe gerade herausgefunden, dass die Datei schon abgespeichert wird, allerdings im Ordner  "meine Dokumente"

Diesen Pfad habe ich nirgends angegeben?!

Sub Speichern()
 
Dim DatumUhrzeit As String
Dim Pfad As String
 
Pfad = "Y:\10_General\190_Riskmanagement\01_Overview"
DatumUhrzeit = Format(Now, "DD" & "." & "MM" & "." & "YYYY" & "_" & "hh" & "." & "mm" & "." & "ss") 'Wird zu 08.02.2018_9.40.34
ActiveWorkbook.SaveAs Filename:="000_Riskmanagement_Overview " & DatumUhrzeit & ".xlsm"
 
 
End Sub