Hallo zusammen,

meine Excel-Tabelle besteht aus zwei Tabellen-Blätter. Mit dem folgenden Code werden beide Blätter als ein *.pdf gespeichert.

Public Sub PDF_Export()
Dim vntReturn As Variant
vntReturn = Application.GetSaveAsFilename(InitialFileName:="G:\342-BLW\342-10\342-10Allg\Urlaub\Urlaubsplan 2025.pdf", _
FileFilter:="PDF-Datei (*.pdf), *.pdf)", Title:="PDF erzeugen")
If vntReturn > False Then
Call ThisWorkbook.ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=vntReturn, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
End If
End Sub

Ich möchte aber, dass nur das zweite Tabellen-Blatt "Urlaub" als *.pdf gespeichert wird.

Was fehlt in meinen Code?

Vielen Dank
Gruß Achim