Office: (Office 2019) PDF mit Namen,Datum speichern im Zielordner

Hallo, habe das Problem den Namen in Zelle D2, Vorname in Zelle D5 , das Datum steht in der Zelle B 10 und soll beim speichern so angezeigt werden (Max Mustermann 2023 Oktober) wie und wo muß ich diesen Code verändern (VBA-Anfänger) so funktioniert der Code nur der Name fehlt bei der speicherung.

Sub SpeichernAlsPDF()
Dim SuchPfad As String, ZielOrdner As String, pdfName As String
With ActiveSheet
SuchPfad = Environ("USERPROFILE") & "\Desktop\Ergebnisse\" & .Range("D2")
ZielOrdner = .Range("D2")
If Not Dir(SuchPfad, vbDirectory) = ZielOrdner Then
MkDir SuchPfad
End If
pdfName = Application.GetSaveAsFilename(SuchPfad & "\" & _
Format(.Range("B10"), "MMMM") & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
If pdfName = "Falsch" Then Exit Sub
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

Danke im Voraus
Manfred

 

Moin Manfred,

da hast Du Dir für eine einfache Aufgabe ja ein ziemliches Gebüsch eingefangen denn eigentlich kann man Deinen Wunsch auf wenige Zeilen beschränken:

Dieser Code (in einem Allg. Modul, Aufruf über Alt+F8)

Code:

Sub SaveMyPDF()
Dim sFileName As String

With ActiveSheet
sFileName = ThisWorkbook.Path & "\" & .Cells(5, 4) & " " & .Cells(2, 4) & " " & Right(.Cells(10, 2), 4) & ".pdf"

    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sFileName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub

speichert die Datei im selben Verzeichnis, in dem auch die XL-Datei liegt.

Wenn Du im Gebüsch bleiben willst, weil Du spezielle Pfade benötigst, kannst Du notwendigen Daten auch wieder in Zellen schreiben.

Ich frage hier die von Dir gewünschten Zellen ab, adressiere sie aber nach der Cells(Zeile, Spalte)-Methode, die ich für VBA nur empfehlen kann. Auf die Format-Anweisung habe ich verzichtet und nehme einfach die letzten vier Zeichen eines manuell (oder per Strg+. (Punkt)( eingegebenen Datums.

Grüße und viel Erfolg!