Speichern unter - als PDF speichern

[stchwint]

Hallo Zusammen,

der Code funktioniert bis auf eine Sache. Die Datei wird nicht abgespeichert.

Also das Fenster Speichern unter soll sich öffnen -> Name ist schon vorgegeben -> als PDF.Datei ist vorgegeben 

Wenn ich auf speichern klicke ist die Datei nicht da.

Code:

Sub PDF_Speichern()
'
Dim Speichern_Unter


MsgBox ("Ablageort w?hlen (Ordner Kostentrackingbericht) und PSP-Nummer in der Bezeichnung ab?ndern")

Speichern_Unter = Application.GetSaveAsFilename(InitialFileName:=Format(Now, "YYYYMMDD") & "_Kostentrackingbericht" & "_CC-Nummer" & ".pdf", fileFilter:="PDF, *.pdf")

End Sub

[UweD]

Hallo

wie der Name schon sagt (GetSaveAsFilename) wird nur der Speichername abgefragt.

Das Speichern selbst musst du bei diesem Vorgehen noch anfügen.

Code:

   Dim Speichern_Unter

   MsgBox ("Ablageort w?hlen (Ordner Kostentrackingbericht) und PSP-Nummer in der Bezeichnung ab?ndern")

   Speichern_Unter = Application.GetSaveAsFilename(InitialFileName:=Format(Now, "YYYYMMDD") & "_Kostentrackingbericht" & "_CC-Nummer" & ".pdf", fileFilter:="PDF, *.pdf")

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speichern_Unter, Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

LG UweD