Schattenkopie als "PDF" abspeichern

[Oegli]

Hallo zusammen,

ich möchte das ein einzelnes Blatt aus einer Mappe immer beim Speichern der gesamten Arbeitsmappe zusätzlich als "PDF" an einem bestimmten Ort gespeichert wird.
Die Mappe wird jeden Morgen aktualisiert und ich möchte das der Rest der Firma nur die "PDF" öffnen muss und nicht die ganze Arbeitsmappe.

Ist das möglich?



Danke vorab!

[00202]

Hallo,  

der Code gehört unter "DieseArbeitsmappe":

Code:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Tabelle1.ExportAsFixedFormat 0, "C:\Temp\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1)) & Format(Now, "_DD_MM_YYYY_hh_mm_ss")
End Sub

 
Tabelle1 ist der CodeName des Tabellenblattes.

Als Name der PDF wird der Dateiname der Exceldatei plus Datum und Zeit genommen.