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
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
Comment