Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.SaveCopyAs "Q:\Ordner\" & Format(Now, "ddmmyy_hhmmss") & "_" & Me.Name
End Sub

Ich möchte aber weil der Pfad ändern kann das gerne aus dem Ersten Tabellenblatt in Zelle A1 den Pfad eintragen können.

Leider ist es mir nicht gelungen das makro so anzupassen.

Vielen Dank für Eure Hilfe.

Gruss