> Ich beabsichtige von einer Tabelle
> (A1 bis G100) ein PDF-Dokument mit einer Schaltfläche (Makro) zu erzeugen.
> Zudem ist beabsichtigt, dieses (PDF)Dokument jeweils in einen speziellen
> Ordner; "lokale Ablage", zu
> speichern.
> Das/mein Problem:
> Für jeden individuellen Anwender sollte die o.g. Tabelle(PDF) die
> Speicherung in "seinem" Ordner lokale Ablage zulassen bzw. erfolgen.(Z.B:)
> ....lokale AblageMüller ....lokale AblageMeier usw. Das Makro sollte also
> irgendwie auslesen können, welcher Anwender (Benutzer) gerade "da ist".

Hallo,
ich empfehle Dir Deine Vorlage dann als .xltm abzuspeichern.
Ist dann eine Vorlage die ein anderer User nicht überspeichern kann.
Hat dann jeder immer als "jungfräuliche" Vorlage.
Achtung: beim Speichernunter als xltm wird der eigene Vorlagenordner vorgegeben,
diesen dann ändern als z.B. C:Test von wo Du die Datei dann ins Netz stellen kannst

Ich gehe davon aus, das Du mit lokaler Ablage das jeweilige Benutzerprofil unter
C:\Users\jeder Nutzer sein eigenes"usw. meinst

Sub speichern()
Dim a As String
Dim b As String
Dim c As String
Dim d As String

a = "C:Users" ' Speicherpfad auf C:Users bzw C:Benutzer
b = Environ("Username") ' liest den jeweilig angemeldeten Benutzernamen aus
c = "DokumenteNeuerName.pdf" 'anpassen auf Ordner und Dateiname - Ordner muß vorhanden sein

d = a & b & c 'alles zusammen, d wird unten als kompletter Speicherort + Filename angegeben

'exportiert das Excelfile als pdf in den angegebenen Pfad und Name (hier: d)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=d _
, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub