Liebe Helfer...bin am verzweifeln. schaffe es nicht eine PDF mit mehreren Tabellenblättern zu erstellen.

Markiere sie jetzt schon in der gewünschten Reihenfolge und versuche mit:

' Markiere die gewünschten Tabellenblätter

Sheets(Array(ws.Name, "KV Seite 1", "KV Seite 2", "KV Seite 3 f Budget", "KV Seite 4 f Budget")).Select ' Ersetze die Namen mit deinen Blattnamen


Debug.Print "Wohin: " & ordnerPfad

Debug.Print "Wohin: " & benutzerOrdner

Debug.Print "Wohin: " & pdfName

Debug.Print "Wohin: " & ordnerPfad & benutzerOrdner & "\" & pdfName & ".pdf"

' Als PDF exportieren
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=ordnerPfad & benutzerOrdner & "\" & pdfName & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

' Auswahl aufheben
ws.Select

............jedoch kommt immer die Meldung: Laufzeitfehler 5: Ungültiger Prozeduraufrug oder ungültiges Argument.

Markierung klappt
Blätter alle vorhanden
Zugriff auf Ordner (Berechtigung und Speicherplatz vorhanden)
Name unter 255 Zeichen

????

Wer hat da eine Idee was ich da verbocke!!!!!!!!!

Danke STeve