Hallo
Wie kann ich mit folgendem Makro den PDF Dateinamen erstellen aus dem Zellwert F20 und dem Tabellenblattnamen?
Irgendwie funktioniert das nicht. Danke für eure Hilfe.
Sub Mail_Senden_mit_PDF1()
Dim WSh As Worksheet
Dim sMailtext As String, sSignatur As String
Dim sDateiName As String, T As String
'<<<Tabellenblatt anpassen>>>
Set WSh = ThisWorkbook.Sheets("A") 'Blatt mit Maildaten
sDateiName = ThisWorkbook.FullName
sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"
T = ThisWorkbook.Path & "\"
sDateiName = Replace(sDateiName, T, T)
'<<<Tabellenblatt anpassen>>>
ThisWorkbook.Sheets("A").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
|