Gibt es eine möglichkeit, wenn ich z. B. Tabelle 2 oder 3 ausgeblendet habe den druck der sichtbaren Blätter zu veranlassen. Mit meinem Makro bekomme ich natürlich immer dort die Fehlermeldung wo das Blatt ausgeblendet ist.
Gibt es sowas, wie alle sichtbaren Blätter drucken.
Sub Drucken()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3",", "Tabelle4")).Select
Tabelle1.Select
ActiveWindow.SelectedSheets.PrintOut
End Sub