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