Als Antwort auf diesen Beitrag
Hi
dann so wie ich an RPP63 gestern um 19:25 geschrieben habe.
die Zellbereiche kannst du ja hoffentlich selber anpassen.
dim txt as string
if Range("A1") = "Drucken" then txt = txt & ",A1:X100"
if Range("A101") = "Drucken" then txt = txt & ",A101:X200"
if Range("A201") = "Drucken" then txt = txt & ",A201:X300"
if Range("A301") = "Drucken" then txt = txt & ";A301:X400"
ActiveSheet.PageSetup.PrintArea = Mid(txt, 2)
ActiveSheet.PrintOut
statt dem PrintOut musst du das Speichern als PDF einfügen
wie das geht, kannst du selber rausfinden, wenn du den makrorecorder startest und dann die Datei mit Speichern unter als PDF speichert.
der Recorder zeigt dir dann den Code dazu.
als Dateiname verwendest du statt dem festen Text dann am besten das hier
Replace(Thisworkbook.Fullname, ".pdf", "")
(Speichernamen immer ohne Dateierweiterung angeben. diese werden automatisch hinzugefügt)