Sub Speichern()
Dim DatumUhrzeit As String
Dim Pfad As String
Pfad = "Pfad einfügen"
DatumUhrzeit = Format(Now, "DD" & "." & "MM" & "." & "YYYY" & "_" & "hh" & "." & "mm" & "." & "ss") 'Wird zu 08.02.2018_9.40.34
ActiveWorkbook.SaveAs Filename:=Pfad & "Dateiname" & DatumUhrzeit & ".xlsx"
End Sub
Ist jetzt eine Lösung für Punkt 1. Sorry, hab da kleinen Mist gebaut... z.B., dass man nichts mit : abspeichern kann usw.
Hoffe das klappt
Gruß Mark