Speichern mit dem Namen aus Zelle A8:B8 als PDF
15.07.2017 18:20:07
Peter
ich bin kurz am verzweifeln,
ich habe mir so ein schönes Makro geschrieben,
jetzt wollte ich noch zum finalen Ende
das Speichern als PDF einfügen.
So ist es mir ja ganz gut gelungen,
nur ich komm nicht drauf was ich schreiben muss
damit das Makro den Namen oder Zahl aus
Zelle A8:B8 (Zellen sind verbunden) nimmt
und Ihn als Dateiname hernimmt.
Mein Makro ist:
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="E:\Maulklinik OP_ZSVA\ZSVA\Ausfallkonzepte\EDV Chargendoku\RDG\RDG Beladung PDF Doku\Test.pdf" ThisWorkbook.Worksheets("Tabelle1").Activate
Range("H32").Cut Destination:=Range("H32")
Range("H32").Copy Destination:=Range("D11")
Range("A11:A32").ClearContents
Range("D12:D32").ClearContents
Range("E11:E32").ClearContents
Range("H11:H32").ClearContents
Range("A2:B2").ClearContents
Range("A4:B4").ClearContents
Range("A6:B6").ClearContents
Range("A8:B8").ClearContents
Range("G5").ClearContents
Range("G6").ClearContents