Sub Bsp_PDFmitAbfrage()
Dim strTitel As String
Dim strFilter As String
Dim varRetVal As Variant
strTitel = "PDF Speichern"
strFilter = "PDF-Dateien (*.pdf),*.pdf"
varRetVal = Application.GetSaveAsFilename(, strFilter, , strTitel)
If varRetVal = False Then Exit Sub
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varRetVal, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub