Sub Mail_Senden_mit_PDF1()
Dim WSh As Worksheet
Dim sMailtext As String, sSignatur As String
Dim sDateiName As String, T As String
Set WSh = ThisWorkbook.Sheets("A")
sDateiName = WSh.Name & "_" & WSh.Range("F20")
sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"
ThisWorkbook.Sheets("A").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub