Mit dem folgende Code öffne ich den "Speichern unter..." Dialog bei dem der Dateiname und Speicherort vorgegeben wird.
Zudem wird in in Zelle AF2 "Entwurf" geschrieben.
Bis hierhin klappt das genau so wie es soll!
Nun mein Problem:
Wenn ich im "Speichern unter..." Dialog auf "Abbrechen" klicke soll der Code abgebrochen werden. Auch in Zelle AF2 soll nicht "Entwurf" geschrieben werden.
Für Euch bestimmt wieder nur ein Klacks, aber ich bekomme das nicht hin :-(
Freue mich auf Eure Hilfe.
Vorab vielen Dank
Micha
Public Sub SpeichernUnterEntwurf(control As IRibbonControl)
Dim Dateiname As String
Sheets("Übersicht").Range("AF2").Value = "Entwurf"
With ActiveWorkbook.Worksheets("Übersicht")
Dateiname = "KALK " & Sheets("Übersicht").Range("F3") & "_" & Sheets("Übersicht").Range("F4") & "_" & Sheets("Übersicht").Range("B5") & Sheets("Übersicht").Range("F5") & " " & VBA.Environ("Username") & " " & Format$(Date, "YYYY-MM-DD") & "_Entwurf"
End With
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 2
.InitialFileName = "\\Server0150\Anlage1\Entwurf\" & Dateiname
If .Show Then .Execute
End With
End Sub