ich möchte automatisch eine pdf Kopie einer Exceldatei erzeugen. Bei der eine Pfadangabe enthalten ist und der Dateiname aus dem Inhalt 3er Zellen generiert wird.
Das was ich bisher ergoogelt habe steht unten....leider funktioniert es nicht und ich habe keine Ahnung warum. Erzeugt wird die Datei beim Speichern.
Kann mir jemand helfen?
THX
O.S
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename H:\ Range("a1") & "_" & Range("b1") & "_" & _
Format(Range("c1").Value, "dd_mm_yyyy") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub