Ich möchte beim Speichern den Pfad und auch Dateinamen sowie Dateityp vorbelegen - dies habe ich bereits mit u.a. Coding realisiert:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = Environ("Userprofile") & "\Documents\"
Datname = " FB BE - 311-1" & " " & Sheets("Zusammenfassung (BL2)").Range("D1").Text & " " & _
Sheets("Deckblatt (BL1)").Range("F12").Text & " " & Sheets("Deckblatt (BL1)").Range("F7").Text & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
Aber irgendwie funktioniert das nicht, weil nach dem vorbelegten Speichern der Dialog nochmal gerufen wird - ich möchte, dass der Standarddialog nur kommt, wenn ich bei dem vorbelegtem Speichern abbreche...Bitte um Eure Unterstützung - Danke!
Lg