Moin,

könnt Ihr mich hier eventuell unterstützen:

Ich möchte den Bereich A36:D73 als Word statt PDF im Ablageort H:/ speichern.

Was müsste ich hier ändern?

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

Datei = "H:\MGD Allgemein\QMDoku\inArbeit\TA_Risikobewertung_Ablage\Test.pdf"

With Sheets("Risikobetrachtung")
Set RNG = .Range("A36:C73")

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