der folgende Code sollte aus einer Tabelle eine PDF-Datei erzeugen und falls im Blatt Menü in der Zelle A30 ein Pfad angegeben ist die Datei beiom angegebenen Pfad speichern, oder falls die Zelle A30 leer ist sollte die Datei automatisch auf dem Desktop gespeichert werden.
Es kommt aber der Fehler: Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler
Sub PDF_Alle_Alphabetisch()
Dim WshShell As Object
Dim wksAlph As Worksheet
Dim wksMenü As Worksheet
Dim Pfad As String
Set wksAlph = Worksheets("Alle_Alphabetisch")
Set wksMenü = Worksheets("MENÜ und NAVIGATION")
Set WshShell = CreateObject("WScript.Shell")
wksMenü.Range("A31") = WshShell.SpecialFolders("Desktop")
If wksMenü.Range("A30") = "" Then
Pfad = wksMenü.Range("A31").Value
Else
Pfad = wksMenü.Range("A30").Value
End If
wksAlph.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & "\" & wksAlph.Range("B8"). _
Value & "_" & wksAlph.Range("B3").Value & "_" & Date & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
wksMenü.Range("A31").ClearContents
Set WshShell = Nothing
End Sub
Bitte um Ergänzung bzw. Berichtigung zum Erreichen meines Zieles.Besten Dank und Servus, Walter