Per Makro als PDF auf Desktop speichern egal welcher User/PC

[Daniel555]

Hallo liebe Gemeinde , 

ich habe eine Tabelle die von mehreren Usern auf verschiedenen Pc´s benutzt werden soll.
In der Tabelle ist ein Button mit der Aufgabe per Klick automatisch ein PDF zu erzeugen und zu speichern.
Mir fehlt nun so etwas wie ein allgemeiner Pfad für den Desktop .



Sub PDF_Erzeugen()


Dim Dateiname As String

Dateiname = Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Range("A1:Q42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub 





Führer ich das Makro jetzt aus aus, so wird bei mir in Dokumente gespeichert. 
Es soll aber egal wer es auf welchem PC benutzt , immer auf dem Desktop gespeichert werden .

vielen dank im voraus

mfg
Daniel

[Daniel555]

Moin Moin 

Ich bräuchte bitte eure Hilfe bei folgendem VBA Code



Sub PDF_Erzeugen()


Dim Dateiname As String

Dateiname = Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Range("A1:Q42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True





End Sub




Die Tabelle mit diesem Code soll von verschiedenen Benutzern an verschiedenen PC´s ausgeführt werden könne. Dabei Soll jedes mal die PDF auf dem Desktop gespeichert werden.
Aktuell wird es immer bei mir auf dem PC in Dokumente gespeihert. 

vielen Dank im vorraus

mfg
Daniel

[volti]

Hallo Daniel,

so sollte das funktionieren....

Code:

dateiname = Environ$("userprofile") & "\desktop\" & Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Gruß
Karl-Heinz

[Fennek]

Hallo,

in VBA sollte gehen:

Code:

myDesktop = environ("userprofile") & "\Desktop\"

mfg

[Daniel555]

Vielen Dank   funktioniert

[Daniel555]

Vielen Dank