Clever-Excel-Forum

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

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

stchwint

UweD