Private Sub Pass_pdf_Click()
Dim Dateiname As String, Benutzer As String
Dim Nachname As String, Vorname As String, LW As String
LW = "N:\"
Benutzer = Application.UserName
Benutzer = Environ("UserName")
Benutzer = Nachname & "_" & Vorname
Dateiname = LW & Benutzer & "\" & Benutzer & "_Pass.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub