Nun sieht mein Code so aus:
Private Sub PE_Pass_pdf_Click()
Dim Dateiname As String, Benutzer As String
Dim Nachname As String, Vorname As String, LW As String
LW = "N:\UBO\AZE"
Benutzer = "Nachname_Vorname"
Filename:="N:\UBO\AZE" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "pdf"
Dateiname = LW & Benutzer & "_PE-Pass.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
funzt aber nicht :(
|