mit eurer Hilfe habe ich folgendes Makro bekommen:
Sub Tab_Drucken()
Dim Tabellenname As String
Tabellenname = ActiveWorkbook.Worksheets("Daten").Cells(1, 1)
ActiveWorkbook.Worksheets(Tabellenname).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
'ActiveWindow.SelectedSheets.PrintPreview
Sheets("Daten").Select
Range("A1").Select
End Sub
Meine Mappe hat 41 Tabellen (Daten; 1;2; ....;39;40)
In der Tabelle Daten steht in der Spalte M steht ab M7 bis M42 entweder WAHR oder FALSCH. M7 gilt für Tabelle 1 M8 für 2 usw.
Gibt es nun eine Möglichkeit dass alle Zellen in Spalte M die Wahr enthalten gesammelt werden und dann alle Tabellen hintereinander ausgedruckt werden können?
Ich scaffe es einfach nicht in den Ausdruck
Sheets(Array("1", "3", "5", "7")).Select den Inhalt der Zellen M7=Wahr; M9=wahr; M11=wahr; M13=wahr einzubinden.
Es wäre eine sehr große Vereinfachung wenn dies möglich wäre.
Danke
Heinz