Office: (Office 2013) "Speichern unter" als *.pdf und Name aus Zelle

JuergenH666 · 17. Januar 2017

Hallo, da bin ich dann mal wieder, jetzt suche ich noch eine Lösung für folgendes Problem, ich möchte Tabellenblatt 2 (Anschreiben) in einem frei auswählbaren Verzeichis auf einem Laufwerk als *.pdf Datei speichern, der Dateiname soll aus der Zelle A9 bezogen werden und dann dahiter direkt das aktuelle Tagesdatum.
Ich bedanke mich schon im voraus für eure Hilfe.
mfg
Jürgen

:)

AndreaNoway · 19. Januar 2017

Im Anhang ein Beispiel, wie man das machen könnte.

Code:

Sub AlsPDFSpeichern()
Dim pdfDateiName As String
Dim pdfname As Variant

pdfDateiName = ActiveSheet.Range("A9") & "_" & Date & ".pdf"
pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
If pdfname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JuergenH666 · 19. Januar 2017

Hallo Andrea,

vielen Dank für deine Hilfe, das ist genau das was ich gesucht habe, habs auf meine genauen Bedürfnisse angepasst (kein Problem mit deiner fantastischen Vorarbeit) und nu läufts genau nach meinen Vorstellungen, nochmals ein großes DANKESCHÖN*Smilie *Smilie *Smilie

dirkdertolle · 4. März 2020

danke , ich habe es benötigen können. gibt es die möglichkeit das script so zu bauen , dass das Datum als eine zahl ist . nach konvertierung zum PDF per Mail an zb.QS@blablabla.de gesendet wird ?
ein kleiner vorschlag :
wenn ich das PDF abspeichere , und ausversehen ein zweites mal draufdrücke , bricht es mit ner Fehlermeldung ab.
wenn ich das PDF vom Desktop / Ordner lösche , klappt es
kann man dieses so automatisieren dass das bestehende PDF überschrieben wird ?
lieben Dank
Dirk

Office: (Office 2013) "Speichern unter" als *.pdf und Name aus Zelle

"Speichern unter" als *.pdf und Name aus Zelle

"Speichern unter" als *.pdf und Name aus Zelle

"Speichern unter" als *.pdf und Name aus Zelle

"Speichern unter" als *.pdf und Name aus Zelle - Similar Threads - Speichern pdf Name

Bei speichern von Word als PDF keine Kommentare

PDF mit Namen,Datum speichern im Zielordner

Datei als PDF speichern ohne festen Dateipfad

PDF-Dateinamen aus Zellen zusammensetzen

PDF geöffnet - speichern nicht möglich

VBA Filecopy, gleiches PDF mehrmals unter anderem Namen speichern

Bericht als PDF speichern, name ändern