> 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".

Korrektur: in der ersten Antwort fehlen einige "\"

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 = "\Dokumente\NeuerName.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