Hi zusammen,

ich habe das Problem, dass folgender Code zwar gestartet , aber kein PDF erzeugt und abgespeichert (im gleichen Pfad wie die Excel) wird.

Könnt Ihr mir da weiterhelfen?

Sub PDF_Quer()
Dim RNG As Range, QuerHoch As Variant, Datei As String

Datei = ThisWorkbook.Path & "\" & [B4] & "_Risiko_" & [A39] & "_" & [A4] & "_" & [C4] & ".pdf"

With Sheets("Tabelle1")
Set RNG = .Range("A38:C74")

QuerHoch = .PageSetup.Orientation

' ggf Orientierung umstellen
If QuerHoch = xlPortrait Then .PageSetup.Orientation = xlLandscape

RNG.Select

'Markierung als PRF ausgeben
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Datei, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

'Orientierng zurückstellen
If QuerHoch = xlPortrait Then .PageSetup.Orientation = QuerHoch

End With
End Sub

Grüße Tobi