|
Hallo Mark,
vielen Dank!! So hat es jetzt einmal funktioniert:
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
Die Datei wird dann so angezeigt: "000_Riskmanagement_Overview 13.02.2018_08.36.08.xlsm" - genau so möchte ich sie haben .. allerdings wenn ich das Makro erneut betätige, restellt er mir keine neue Datei.. also man merkt, Excel macht etwas, aber es wird keine neue Datei abgelegt..
Weist du woran das liegt?
Vielen Dank für deine große Hilfe!!
Manuel
|