Option Explicit
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim strWorksheetName As String
strWorksheetName = "Tabelle1"
If Success Then
Dim wks As Worksheet
Set wks = Worksheets(strWorksheetName)
wks.ExportAsFixedFormat xlTypePDF, get_filename, xlQualityStandard, True, False, OpenAfterPublish:=True
Set wks = Nothing
End If
End Sub
Private Function get_filename() As String
Dim strName As String
strName = ThisWorkbook.FullName
get_filename = Replace(strName, Right(strName, (Len(strName) - InStr(1, strName, ".", vbTextCompare)) + 1), ".pdf")
End Function