Hallo,
kopiere bitte folgenden Code in das Objekt "DieseArbeitsmappe". Anschließend bitte die Tabellenbezeichnung anpassen für die Tabelle, die beim Speichern automatisch exportiert werden soll.
Option Explicit
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim strWorksheetName As String
strWorksheetName = "Tabelle1" 'anpassen
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
Anschließend die Arbeitsmappe mal speichern - dann sollte automatisch ein PDF erzeugt werden.
Vorsicht: Der Dateiname der Arbeitsmappe darf keinen weiteren Punkt außer für die Dateierweiterung verwenden.
Viele Grüße
|