Beiträge zum Thread: Pdf-Datei erstellen

Excel 2024

Hallo in das Forum,

ich habe eine Userform mit 7 Checkboxen und 3 Command-Button (.
Je nachdem welche Checkbox bzw. Checkboxen angeklickt wird / werden, soll jeweils eine Pdf- Datei erstellt werden. Leider funktioniert das Erstellen einer Pdf-Datei nicht.
Es erscheint die Fehlermeldung: "Fehler beim Pdf-Export: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Wer kann mir helfen und den Code evtl. umschreiben??

LG Ina

' Button: PDF erstellen
Private Sub cmdPDF_Click()
Dim colSheets As Collection
Dim arr() As Variant
Dim i As Long
Dim pdfPath As String

On Error GoTo ErrHandler

Set colSheets = GetSelectedSheets()
If colSheets.count = 0 Then
MsgBox "Bitte mindestens ein Blatt auswählen.", vbInformation
Exit Sub
End If

' Array für Select
ReDim arr(1 To colSheets.count)
For i = 1 To colSheets.count
arr(i) = colSheets(i).Name
colSheets(i).PageSetup.CenterHorizontally = True
Next i

' Speicherort festlegen
pdfPath = Application.GetSaveAsFilename( _
InitialFileName:="Export.pdf", _
FileFilter:="PDF-Dateien (*.pdf), *.pdf")

If pdfPath = "Falsch" Or pdfPath = "False" Then Exit Sub

' PDF exportieren
ThisWorkbook.Sheets(arr).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox "PDF erfolgreich erstellt: " & pdfPath, vbInformation
Exit Sub

ErrHandler:
MsgBox "Fehler beim PDF-Export: " & Err.Description, vbCritical
End Sub