Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Excel Mappe als PDF mit bestimmtem Ziel und Namen

Forumthread: Excel Mappe als PDF mit bestimmtem Ziel und Namen

Excel Mappe als PDF mit bestimmtem Ziel und Namen
20.09.2018 20:56:35
Sven
Hallo liebe Leute
ich habe eine Problem und zwar möchte ich in VBA per knopf druck(Sub) die Excel datei als PDF schpeichern der Datei name der PDF soll sich nach Zelle B3 richten und der Speicherort soll wie folgt sein C:\Ordner\"Zelle I3"\"Zelle C3"\...
ich hoffe mir kann da jemand behiflich sein.
MFG S
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Mappe als PDF mit bestimmtem Ziel und Namen
21.09.2018 02:38:33
fcs
Hallo Sven,
mit deinem angegebenen Level VBA=gut solltest du eigenlich in der Lage sein ein entsprechendes Makro mit dem Makro-Recorder aufzuzeichnen und das Makro dann an den Stellen anzupassen, wo es variabel sein soll.
Gruß
Franz
Kann dann am Ende etwa so aussehen.
Sub PDF_Speichern_Tabellenblatt()
' Aktives Tabellenblatt als PDF_Speichern
Dim strDateiname As String
With ActiveSheet
strDateiname = "C:\Ordner\" & .Range("I3").Text & "\" & .Range("C3").Text & "\" _
& .Range("B3").Text & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub
Sub PDF_Speichern_Arbeitsmappe()
' Aktive Arbeitsmappe/Datei als PDF_Speichern
Dim strDateiname As String
With ActiveSheet
strDateiname = "C:\Ordner\" & .Range("I3").Text & "\" & .Range("C3").Text & "\" _
& .Range("B3").Text & ".pdf"
End With
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Anzeige
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18