03.08.2015, 22:42
Mit dem Code klappt es:
und hier wollte ich den Dateinamen erweitern um eine Datumsangabe und den Benutzernamen
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!
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 Subund 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 Subund es kommt eine Fehlermeldung "Objekt erforderlich". Makiert wird "DtTxt", aber hab doch die Variable deklariert?
Danke und Grüße zur Nacht oder zum Morgen!