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