Public Sub Save_Workbook_As_PDF()
Dim i As Integer, PDFindex As Integer
With Application.FileDialog(msoFileDialogSaveAs)
PDFindex = 0
For i = 1 To .Filters.Count
If InStr(VBA.UCase(.Filters(i).Description), "PDF") > 0 Then PDFindex = i
Next
.Title = "Save workbook as PDF"
.InitialFileName = "C:\Musterordner\Bezeichnung Name Projekt Datum.pdf"
.FilterIndex = PDFindex
If .Show Then
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End With
End Sub