Seitenansicht alle Tabellen
Martin
Frohe Vorweihnachtszeit . . .
Ich habe folgenden Code aufgezeichnet. Ziel alle sichtbaren Tabellen in der Seitenansicht zeigen.
Sub Makro2()
' Makro2 Makro
Sheets(Array("Deckblatt", "Türe (2)", "Rahmen", "Element")) .Select
Sheets("Deckblatt").Activate
ActiveWindow.SelectedSheets.PrintPreview
End Sub
nun habe ich aber immer ander Tabellennamen und eine wechselnde Anzahl von Tabellen. Wie kann ich dies lösen.
Speziell: Es hat viel Tabellen, die ausgeblendet sind. Diese sollen nicht in der Setienansicht erscheinen.
Grüsschen aus der Schweiz
Martin
Anzeige