|
Hi zusammen,
bin neu in diesem Forum und hoffe, dass ich alles richtig gemacht habe.
Hätte auch gerne meine Beispieldatei angefügt, weiß nur leider nicht wie?
Zu meine Problem:
Habe eine Datei mit 3 Tabellenblättern.
Tabellenblatt 2 und Tabellenblatt 3 sind in 6 Bereiche unterteilt.
In Tabellenblatt 1 gibt man in einem Feld eine Zahl ein von 1-6, welche dann vorgibt,
welche der 6 Bereiche aus Tabellenblatt 2 und 3 gedruckt werden sollen.
Meine VBA sieht so aus:
Sub DruckeBereich()
Worksheets("Druck1").Range("A1:B3").PrintOut Copies:=1
Worksheets("Druck2").Range("A1:B3").PrintOut Copies:=1
End Sub
Das ist Druckbereich 1.
Diese VBA muss ich erweitern, weiß aber leider nicht wie.
Ein Beispiel, in Tabelle 1 gebe ich die 2 ein. Es soll also Druckbereich 1-2 gedruckt werden.
Das wäre dann in Tabelle 2 und 3 jeweils "A1:B6" (Druckbereich 1: ("A1:B3") Druckbereich 2: ("A2:B6") )
Jeder Druckbereich soll auf einem extra Blatt ausgegeben werden.
Es werden immer alle fortlaufenden Bereiche benötigt. also nie nur die 2 oder die 5 sonder immer 1-2 oder 1-5 usw.
Hoffe Ihr könnt mir Helfen und bedanke mich vorab für eure Mühe.
Gruß Andreas
|