Hallo Forum,
habe ein Problem mit der Tabellen-Auswahl für Druck.
In Abhängigkeit einer Auswahl - kleinster und grösster Wert - sollen diese Tabellenblätter in der Arbeitsmappe ausgewählt werden und dann gedruckt werden.

Leider funktioniert meine Routine nicht! Was mache ich falsch?

......
For u = v To w ' v ist der kleinste und w der grösste Wert
If u <> Sheets.Count Then
Bereich = Bereich & u & ","
Else
Bereich = Bereich & u
End If
Next u
MsgBox Bereich 'Bereich = v,v+1,...,w-1,w also wie nächste Zeile
Sheets(Array(1, 2, 3, 4, 5)).Select 'Dies funktioniert
Sheets(Array(Bereich)).Select 'Dies leider nicht; wo liegt der Fehler
....

Sicher liegt ein trivialer Fehler vor, ich komm aber nicht drauf.

Mit einer ähnlichen Prozedur möchte ich dann später Tabellenblätter aus einer ListBox mehrfach selektieren und zum Ausdruck bringen. Eigentlich was alltägliches. Möglicherweise gibt's bereits Lösungen dafür.

Vielen Dank für Support

Roland Escher