07.06.2016, 14:29
Ok bin von selbst auf die Lösung gekommen,
unten der funktionierende Code.
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