Tabellenblatt als PDF Speichern
11.04.2016 19:48:48
Armbruster
ich würde gerne mein Tabellenblatt ("Rechnungsvorlage") als PDF in einem Ordner abspeichern. _
dafür habe ich folgenden Code:
Sub SpeichernalsPDF()
' SpeichernalsPDF Makro
Range("A10:F14").Select
Range("A1:H35").Select
ChDir "C:\Users\Felix\Desktop\Rechnungen"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Felix\Desktop\Rechnungen\Rechnung.pdf" & Cells(6, 8).Value, Quality:= _
xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Jetzt hätte ich aber gerne, dass die PDF-Datei dynamisch immer die Bezeichnung Rechnung + der Wert der in Zelle G11 des Tabellenblattes steht hat.
Wäre echt toll, wenn Ihr mir weiterhelfen könntet und den Code um die fehlenden Informaionen optimiert.
MFG Felix