Guten Tag!
Ich sollte für eine Excel-Datei einen automatischen PDF-Speicherknopf hinzüfügen, habe ein paar zeilen geschrieben, jedoch bin ich mitlerweile am verzweifeln! Es sollen automatisch der Kunde (B8) und Die Rechnungsnummer (G5) im Dateinamen enthalten sein. Jedoch bekomme ich jedes mal den Laufzeitfehler 1004.
Sub Schaltfläche7_Klicken()
Const DateiPfad = "U:\HAK 4\ÜFA\"
Dim DateiName As String
DateiName = DateiPfad & Range("B8") & Range("G5") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
|