Als Antwort auf diesen Beitrag
Hallo
Meinst du das so?
Sub PDFMitDialog()
Dim Datei As Variant, Pfad As String, Vorgabe As String, TB As Worksheet
Set TB = Sheets("Rechnung")
Pfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\"
Vorgabe = "Name_Anpassen_" & Format(Date, "YYYY-MM-DD")
Datei = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Vorgabe & ".pdf", _
FileFilter:="PDF Dateien (*.pdf), *.pdf")
If Datei <> False Then
TB.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Datei
End If
End Sub
LG UweD