Tabellenarray an Tag der Ufrm übergeben
Peter
ich möchte bestimmte Tabellenblätter, die als Array zusammengefasst sind,
einer Variable zuordnen.
Diese Variable soll bei Aufruf der Ufrm durch eine
Schaltfläche der Tag Eigenschaft der Ufrm übergeben werden und entsprechende
Tabellenblätter ein bzw. ausblenden.
Geht das überhaupt? Bisher habe ich diesen Vorgang mit einer Suche mit ForEach
erledigt.
Wenn es irgendwie geht würde ich mich über ein kleines Bsp. mit kurzer Erklärung
(zum Nachvollziehend des Vorganges) sehr freuen.
Danke Peter
Sub Makro2()
' Makro2 Makro
' Makro am 06.12.2009 aufgezeichnet
Sheets(Array("Vorl Z 13", "Vorl Z eS 01", "Vorl Z 09", "Vorl Z 08", "Vorl Z 07", _
"Vorl Z 06", "Vorl Z 05", "Vorl Z 04", "Vorl Z 02 ", "Vorl Z 01")).Select
Sheets("Vorl Z 01").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub