Mehrere Worksheets nach Bedingung drucken

[MelanieS]

Hallo allerseits,

ich habe ein VBA-Problem, das mich schon den ganzen Tag beschäftigt. Leider bisher ohne Erfolg:

Ich möchte mehrere Worksheets gesammelt ausdrucken, wenn für das jeweilige Tabellenblatt eine Bedingung erfüllt ist.

Bisher habe ich das:

Sub drucken()

Sheets(Array("Tabelle5", "Tabelle6", "Tabelle7")).Select
Sheets("Tabelle1").Activate
Application.ActivePrinter = "pdf24 auf Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"pdf24 auf Ne01:", Collate:=True

End Sub

Hier werden jetzt die drei Sheets Tabelle5, Tabelle6 und Tabelle7 gedruckt. Worauf ich aber auf das Suche bin, ist eine Funktion, die es variabel ermöglicht, bestimmte Tabellenblätter gesammelt zu drucken. Beispielsweise: drucke alle Tabellen, in deren A1-Zelle der Wert "ja" steht. So würden beispielsweise die Tabellen 1,3,7 gedruckt werden, wenn dort in A1 jeweils "ja" steht. Wenn ich dann bspw. die A1-Zelle von Tabelle 3 auf "nein" ändere und in den Tabellen 9,10,11 auf "ja" ändere, werden 1,7,9,10,11 gedruckt usw........

Bin am verzweifeln und wäre für jeden Hinweis sehr dankbar!!!

Liebe Grüße

Melli

[Severus]

Sub drucken()
Dim WS as Excel.Worksheet
Application.ActivePrinter = "pdf24 auf Ne01:"

For Each WS in WorkSheets
If UCase(WS.Range("A1") = "JA" Then
WS.PrintOut Copies:=1, Collate:=True
End If
Next

End Sub

Severus