Hallo Reinhard,
danke für die schnelle Antwort.
Mit der Funktion konnte ich zwar den Standardarbeitspfad ändern, aber leider hat der PDF_Writer trotzdem immer einen eigenen Ordnerpfad benutzt.
Habe hier aber eine andere Lösung gefunden und zwar mit der Funktion printout:
Dim Dateiname As String
Sheets("Diagramm").Activate
Dateiname = "test.pdf"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, ActivePrinter:="PDFWriter", PrintToFile:=True, Collate:=True, PrToFileName:="c:\test" & Dateiname
Gruß Frank