Ich habe von fcs in diesem Forum einen super Code bekommen.
Je nachdem in welche Kalenderwoche (z.B. "KW4") ich klicke erscheint im Sheet "Woche Drucken" der Bereich, der gedruckt werden soll.
Hier die Datei:
https://www.herber.de/bbs/user/109297.xlsm
Gibt es eine Möglichkeit das Ganze gleich als PDF abzuspeichern (mit der jeweiligen Kalenderwoche als Name, z.B. "KW4.pdf")?
Und weiß jemand wie man das Ganze bei Bedarf als Schleife für alle KWs durchlaufen lassen kann?
Danke!
PS: Mit folgenden Code konnte ich schon erfolgreich das Blatt als PDF abspeichern. Nur die variable Namensbennennung hat bei mir leider nicht geklappt ;)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Desktop\Testdatei.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True