Speicern und Drucken von Exeldatein durch anklicken eines "Butten"

[Stefanus H W]

Hallo zusammen.
Mit der "normalen" Programierung von Exel komme ich ja halbwegs klar.
Jetzt habe ich aber zwei Probleme.
Ich habe eine Datei erstellt mit 5 Tabellen.
Durch anklicken eines "butten"- SPEICERN- in jeder Tabelle möchte ich das die Datei mit dem Namen aus  Tabelle 1 D3 abgespeichert wird.

In der 5 Tabelle möchte ich einen "Butten" DRUCKEN  erstellen.
Durch anklicken sollten dan alle 1. Seiten der Tabellen als PDF in einer Datei, gerne auch Tabelle1 D3, gedruckt  (abgespeichert) werden.
Ist sowas überhaupt möglich.
Evtl.habt ihr ja eine Lösung.
Besten Dank im vorraus

[Jonas0806]

Hallo,

Code:

'Speichern einer Kopie der Datei (Name aus D3 in Tabelle1)

ThisWorkbook.SaveCopyAs "C:\Users\Mustermann\Desktop\" & Tabelle1.Range("D3").Value & ".xlsm"


'Druck als PDF (Name aus D3 in Tabelle1)

ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C:\Users\Mustermann\Desktop\" & Tabelle1.Range("D3").Value, , , , , , True