wenn vorhanden bestimmtes Tabellenblatt ausdrucken
12.02.2004 09:17:35
Jürgen
hatte in diesem Zusammenhang gestern schon eine Frage, bei der mir Heinz weiterhelfen konnte. Es ging um den Ausdruck bestimmter Tabellenblätter in Zahlenbereichen. Die Lösung sah wie folgt aus:
Sub Drucken()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name >= 200000 And ws.Name < 300000 Then ws.PrintOut
Next ws
End Sub
Irgendwie funktioniert dies nicht so richtig. Um es etwas komplizierter zu machen würde ich gerne vorher eine Abfrage starten. Dies soll insgesamt so aussehen:
Wenn das Tabellenblatt mit Namen XY existiert,
dann druck dies aus,
und durch dannach alle Tabellenblätter aus dem Zahlenbereich 200000 bis 299999.
Wenn das Blatt XY nicht existiert dann schau nach,ob das Blatt ZZ da ist,
druck dann dies aus und einen anderen Zahlenbereich
u.s.w.
Hilfe, wer kann mit helfen?
Gruß Jürgen