Mehrere Druckbereiche dynamisch festlegen
16.04.2024 11:43:37
IchBins DerChris
folgende Situation:
Ich erstelle eine bzw. fülle ein Tabellenblatt mit Daten in 3 Spalten. Wie viele Zeilen es werden weiß ich vorher nicht.
Dann markiere ich mir die gefüllten Zellen mit folgendem Code:
sub select_col ()
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 2).Select
end sub
Nun zu meinem Probelem:
Ich würde gerne immer 3 Spalten und 7 Zeilen jeweils als Druckbereich definieren, damit immer diese 3 x 7 Zellen auf eine Seite gedruckt werden.
Das heisst ab Zeile 8 bräuchte ich den 2. Druckbereich, wenn es Daten gibt. Ab Zeile 15. wenn es Daten gibt einen 3. Druckbereich usw.
Ich hoffe ihr wisst was ich meine.
LG Chris
Anzeige