Makro, Pdf erstellen

[sandormiles]

Mit dem  Code klappt es:

Code:

Rem Hier beginnt Makro2
Sub PDF_offene_WS_mit_RF()
Dim pdfName As String

pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Listen_offene_WS_mit_RF" & ".pdf", "PDF-Dateien (*.pdf), *.pdf")

Sheets("Listen").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                         Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintareas:=False, _
                         OpenAfterPublish:=True


End Sub

und hier wollte ich den Dateinamen erweitern um eine Datumsangabe und den Benutzernamen

Code:

Sub TESTEST()
Dim pdfName As String, DtTxt As String, UserTxt As String

Set DtTxt = Format(Date, "YYYY-MM-DD")
   UserTxt = Application.UserName
   
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Listen_offene_WS_mit_RF" & DtTxt & UserTxt & ".pdf", "PDF-Dateien (*.pdf), *.pdf")

Sheets("Listen").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                         Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintareas:=False, _
                         OpenAfterPublish:=True


End Sub

und es kommt eine Fehlermeldung "Objekt erforderlich". Makiert wird "DtTxt", aber hab doch die Variable deklariert?

Danke und Grüße zur Nacht oder zum Morgen!

[Winny]

Hi

Lass das Set vor DtTxt weg

[sandormiles]

Danke Winny!