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

Hallo zusammen,

ich bräuchte eure Hilfe. Ich beschäftige mich seit kurzem mit VBA-Codes.
Ich habe für unseren Verein, eine Excel Tabelle mit mehreren Tabellenblättern erstellt.
Nun möchte ich einen Button zum Speichern erstellen, um jede einzelne Rechnung als PDF zu Speichern und im Anschluss zu drucken.
Gefunden habe ich den VBA Codes:

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

der auch soweit super funktioniert aber leider immer das Aktuelle Tabellenblatt speichert wo mein Button platziert ist. Ich benötige aber das Tabellenblatt “Rechnung“.
Wie kann ich nun den Codes verändern, dass sich das Tabellenblatt „“Rechnung“ speichern und drucken lässt.
Danke schon ihm voraus

:)

 

Du musst den pdfDateiName nicht als Activesheet nehmen, sondern darauf mit
Code:

verweisen
Gleichzeitig kannst du mit einem simplen
Code:

vor dem eigentlichen Code das Blatt auswählen, das gespeichert werden soll.

 

Hallo Berni, Dankeschön !!!!!!!
Funktioniert einwandfrei *mrcool

Viele Grüße Lothar