Ich komme leider nicht mehr alleine weiter und wäre für Hilfe durch Euch sehr dankbar.
LG Robert
Sub PDFTest()
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Test" & ".pdf", _
"PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Gesamt"Range.A1:EK94, "ABG Nord".RangeA1:EK94, "ABG Mitte".RangeA1:A94)).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub