pdf erzeugen/speichern
10.08.2020 09:17:24
Einblatt
meine Datei in Excel heißt: Nachname_Vorname_PE-Pass.xlsm
Diese soll per Klick auf einen Button in N:\UBO\AZE den Ordner Nachname_Vorname finden und dort die pdf speichern.
mein Code sieht so aus, funzt aber nicht :(:
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
Anzeige