Hallo Werner,
danke für deine Ausführungen. Jetzt verstehe ich etwas mehr.
Nun sieht mein Code so aus:
Sub PE_Pass_pdf_Klicken()
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 = Benutzer & "_PE-Pass.pdf"
End Sub
geht aber immer noch nicht :(
meine Datei in Excel heißt: Nachname_Vorname_PE-Pass.xlsm
kann es daran noch liegen?
er soll in N:\UBO\AZE den Ordner Nachname_Vorname finden und dort die pdf speichern.
Danke für deine Hilfe
LG Einblatt
|