Als Antwort auf diesen Beitrag
Hi
"harter Zeilenumbruch" + Autofit passt nicht zusammen.
Entweder Autofit oder harter Zeilenumbruch.
Wie soll denn der Ausdruck sein?
Sollen die Inhalte auf beiden Blättern gleich groß sein oder darf Seite 1 kleiner sein als Seite 2?
das einfachste ist vermutlich wenn du die Inhalte auf zwei Tabellenblätter verteilst und diese dann gemeinsam ins PDF schreibst.
den Autofit machst du dann für beide Seiten auf 1 Seite breit und 1 Seite hoch.
das Kopieren der Inhalte auf 2 Blätter bekommst du hoffentlich alleine hin
Um zwei Tabellenblätter in ein PDF zu schreiben musst du sie vorher als Gruppe selektieren.
das geht entweder über die selektion als Array:
Sheets(Array("Tabelle1", "Tabelle2")).Select
oder du selektierst die Blätter nacheinander und gibst ab dem zweiten Blatt dann FALSE oder 0 als Parameter an. Das ist für VBA der Hinweis, das neu selektierte Blatt nicht als einziges zu selektieren, sondern zur Gruppe hinzuzufügen.
Sheets("Tabelle1").Select
Sheets("Tabelle2").Select False
der Ausdruck ins PDF aller selektierten Blätter erfolgt dann ganz normal:
ActiveSheet.ExportAsFixedFormat ...
Gruß Daniel