Hallo,
kann auch nicht, weil das alles ein ziemliches Durcheinander ist.
Private Sub PE_Pass_pdf_Click()
Dim Dateiname As String, Benutzer As String
Dim Nachname As String, Vorname As String, LW As String
'du Dim(ensionierst) Nachname und Vorname
'diese Variablen werden aber nirgendwo gefüllt
'und verwendet werden sie auch nirgendwo
'hier fehlte der Backslash am Ende
LW = "N:\UBO\AZE\"
Benutzer = "Nachname_Vorname"
'wozu das hier denn bitte?
'im weiteren Verlauf wird Filename überhaupt nicht benutzt
'und auch hier fehlt der Backslash nach AZ"
Filename = "N:\UBO\AZE\" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "pdf"
Dateiname = LW & Benutzer & "_PE-Pass.pdf"
'die Messagebox gibt dir Speicherpfat und Dateiname aus
'den du dir zusammengestellt hast und unter der die
'PDF dann gespeichert wird
'willst du die Datei tatsächlich so abspeichern?
MsgBox Dateiname
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Den Export als PDF habe ich mal auskommentiert. Lass den Code mal laufen. In der Messagebox wird dir ausgegeben, was du da als Speicherpfad und Dateinamen zusammengebaut hast.
Gruß Werner
|