Office: Mehrere Blätter als PDF Speichern

Hallo zusammen,

habe ein Makro gefunden zu dem o.g. Titel.
Habe es etwas angepasst… Funktioniert auch einwandfrei.
Nur ein Problem habe ich: Das PDF wird nicht an dem angegebenen Pfad "E:PDFs" gespeichert.
Das PDF wird immer unter Userprofil Eigene Dokumente gespeichert.

Könnt Ihr mir bitte helfen? Danke!

-------------------------------------

Sub SavePDF()

Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5", "Tabelle6")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ$("E:PDFs") & Format(Now, "YYYY-MM-DD (HH.SS)") & " Bericht", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("Tabelle1").Select 'Gruppierung wieder aufheben

End Sub

:)

 

Filename:="W:\Dokumente\" &Environ.....

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Danke Hajo!!!

Funktioniert!

Kann auf Environ$ komplet verzichten.
Filename:="E:PDFs" & Format(Now, "YYYY-MM-DD") & " Bericht", _

*Smilie *top

 

dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue und ich baue keine Datei nach.

keine Ahnung wie die Ordnerstruktur ist.