Public Sub PDF_erzeugen()
Dim Pfad As String, Ordner As String, Datei As String
Pfad = "N:\UBO\AZE\"
Ordner = Replace(ThisWorkbook.Name, "_PE-Pass.xlsm", "\")
Datei = Replace(ThisWorkbook.Name, ".xlsm", ".pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & Ordner & Datei, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub