Office: (Office 2019) Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Hallo zusammen,
ich möchte eine VBA Programmierung machen wie folgt.

Das aktuelle Excel-Tabellenblatt soll als PDF Speicher unter, unter Vorgabe des Dateinamens der in Zelle A1 steht gespeichert werden.

VG Weismänn

 

Moin,

den Makrorecorder noch nicht entdeckt?
Den aufgezeichneten Dateinamen ersetzt Du durch Textverknüpfung mit & durch die Zelladdresse.

Bsp.: "C:\DeinOrdnername" & "\" & Tabelle1.Cells(1,1).Text & ".pdf"

 

Hallo Ralf,
Danke für den Tipp
Hier meine Makroaufzeichnung:
Wo muss ich das dazwischen schreiben?

Sub Makro1()
'
' Makro1 Makro
'

'
ChDir "C:\Users\miei\OneDrive\1) RW_Support_Intern"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\miei\OneDrive\1) RW_Support_Intern\Transport_TEST_VBA_PDF.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

VG Weismänn

 

hallo Weismänn
mit diesem Code öffnet sich das Speichern unter Fenster und du kannst dadurch den Speicherort selbst wählen

Code:

pdfDateiName = Application.Substitute(ActiveWorkbook.Name, ".xlsm", "") & ".pdf"

    pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

oder
hier wird es in dem Verzeichniss gespeichert in dem auch deine Exceldatei gespeichert ist

Code:

Name = ThisWorkbook.Path & "\" & "Bestellung_" & Range("B1") & "_" & Format(Date, "DD.MM.YYYY")
'Application.Substitute
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Name = Name & ".pdf"

Gruß
Martin

 

Hallo Martin,
Danke dir...das hat mir schon ein wenig weitergeholfen.
VG Weismänn

 

Wow! Extrem schwierige Frage!
Das findest Du sicher selbst heraus.
Wo steht denn im aufgezeichneten Code der Pfad C:\Users\miei\OneDrive\1) RW_Support_Intern und der Dateiname Transport_TEST_VBA_PDF ?
Und was muss demnach wo und wie, wie im Bsp. "C:\DeinOrdnername" & "\" & Tabelle1.Cells(1,1).Text & ".pdf"
ersetzt werden, wenn der Dateiname (ohne Extension) in A1 der Tabelle1 ausgelesen werden soll?

 

Ich hatte das schon reinkopiert,
aber bei mir kommt immer wieder eine Fehlermeldung " Fehler beim Kompilieren Syntaxfehler"
deswegen hab ich noch einmal nachgefragt!

Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\miwei\OneDrive\1) RW_Support_Intern" & "\" & Tabelle1.Cells(1,1).Text & ".pdf",_
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

 

Moin!
Nicht
& ".pdf",_
sondern
& ".pdf", _

Gruß Ralf

 

Hallo Ralf,
super nun geht´s auch...Herzlichen Dank an dich.
VG Weismänn

 

Hallo,
es klappt nun "fast" alles.
nun habe ich nur das Problem, dass die Datei ohne zu fragen "Speicher unter"
die Liste direkt gespeichert wird.

Kann mir jemand noch helfen um dieses "Speicher unter" noch hinzuzufügen :-)

Private Sub CommandButton1_Click()

' Makro1 Makro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\miei\OneDrive\1) RW_Support_Intern\1) Rechnungen_Angebote\2025\13) Hub-Essen\1) PDF-Rechnungen" & "\" & Tabelle10.Cells(7, 14).Text & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

VG Weismänn

 

Entweder Du passt den Code von @Cherished aus Post #3 an oder Du schreibst den Pfad in eine andere Zelle und ersetzt im Code den festdefinierten Pfad durch den Wert dieser Zelladresse...

 

Leider ist mein Kenntnisstand bei VBA sehr schlecht...deswegen habe ich ja noch mal gefragt.
Hatte natürlich schon versucht das von @Cherished und meine Programmierung umzuschreiben,
bekomme ich nicht hin.
Das Problem ist einfach bei meiner Programmierung, beim speichern einfach ohne nachfragen die
schon abgespeicherte Datei einfach überschrieben wird.

VG Weismänn

 

Hallo Weismänn,
ich gehe doch davon aus das du deine Tabelle schon als .xlsm und in einem bestimmten Verzeichnis abgespeichert hast?
Wenn du die im gleichem Verzeichnis als pdf speichern willst Verwende diesen Code

Code:

Private Sub CommandButton1_Click()
    Name = Application.Substitute(ActiveWorkbook.Name, ".xlsm", "") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Name = Name & ".pdf"
   
End Sub

Gruß
Martin

 

Herzlichen Dank Martin,
ja die Datei ist schon unter .xlsm gespeichert.
VG Weismänn