VBA: Speicher Button mit variablem Dateinamen

[MrHoef]

Ok bin von selbst auf die Lösung gekommen,
unten der funktionierende Code.

Code:

Sub Speichern()

If Cells(24, 11).Value = "" Then
MsgBox "Bitte SD-Nr. in Zelle K24 eintragen!!!"
Exit Sub
End If


   ChDrive "Q"
   ChDir "Q:\SVE_SD_Kalkulation_PDF"
   Dim X
   X = Application.GetSaveAsFilename(InitialFileName:="00" & Range("K24").Text & ".pdf", FileFilter:="PDF files, *.pdf", Title:="Save PDF File")
   
   If TypeName(X) = "Boolean" Then
   Else
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=X, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
       
       End If
   End Sub