Office: (Office 365) VBA Makro - PDF erstellen und speichern auf lokalem Netzwerk

Hallo zusammen,

ich bin gerade dabei eine Excel Tabelle mit einem Makro zu erstellen, die von mehreren Personen genutzt wird.
Jetzt stehe ich vor dem Problem, dass der angegebene Pfad nur auf meinem Rechner funktioniert. Wenn ein anderer User das Makro nutzt kommt ein Fehler auf, da der Pfad in dem Makro nur für mich gültig ist.

Gibt es eine Möglichkeit einen Speicherort auszuwählen der für jeden Nutzer gültig ist?

Code:
Sub PDF_Erstellen()

Dim DateiName As String
DateiName = Range("AG2") & Range("AG1") & ".pdf"

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

End Sub

AG2= D:\Users\"Mein Name"\Downloads\

"Mein Name" müsste so angepasst werden, dass jeder Nutzer der Tabelle die PDF in seinen Downloads abspeichert.

Könntet ihr mir weiterhelfen?

 

Hi,

mit Environ("Userprofile") erhältst du den Teil D:\Users\MeinName (Wieso eigentlich D: normalerweise ist das doch C:)
Ich würde in AG2 nur noch "Downloads" hinterlegen, so dass das jeder nach Gusto ändern kann. und dann im Code
Dateiname = Environ("Userprofile") & "\" & Range("AG2") & "\" & Range("AG1")
verwenden.
Übrigens ist es nicht notwendig die Dateierweiterung mit anzugeben. diese wird automatisch ergänzt.