Hallo Experten,
ich möchte den Speichernamen einer Datei aus einigen Zellen generieren.
Das klappt gut, aber nur solange es sich nicht um eine schreibgeschützte Datei handelt. Das ist aber erforderlich.
In diesem Fall drängelt sich ein Dialog ohne den Namensvorschlag vor und die Datei muss zweimal gespeichert werden.
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
...
Application.DisplayAlerts = False
Application.EnableEvents = False
Cancel = True
Habe es versucht mit
ThisWorkbook.SaveAs "TP-" & wks1.Range("DP1") & "-" & wks1.Range("DQ1") & "-" & wks1.Range("DR1") & ".xlsm"
und auch mit
Application.Dialogs(xlDialogSaveAs).Show ("TP-" & wks1.Range("DP1") & "-" & wks1.Range("DQ1") & "-" & wks1.Range("DR1") & ".xlsm")
abschliessend
Application.EnableEvents = True
Application.DisplayAlerts = True
Cancel = False
Was mache ich falsch ?