Hi, ich habe es jetzt mal mit folgendem Code probier, jedoch habe ich das gleiche Problem :(

Sub exportToPdf()

ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FilenameStr, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End Sub