Ausblenden verschiedener Tabellenblätter
20.10.2004 12:08:15
Tobias
Ich habe eine Exceltabelle mit ca. 15 Tabellenblätter.
Auf einer Übersicht sind verschiedene Schaltflächen eingebaut.
Ziel ist es, dass bei dem Klick auf die entsprechende Schaltfläche nur die jeweils betreffenden Blätter eingeblendet werden.
Wenn es sich um ein Blatt handelt ist das kein Problem (siehe untenstehendes Makro). Ich brauch jedoch mehrere Blätter. Leider weiss ich nicht wie ich das Makro so umschreiben kann das es nicht nur das Batt Name1 nicht ausblendet sondern beispielsweise auch das Blatt Name2 und Name3 nicht ausgeblendet wird.
Vielen Dank
Sub Ausblenden()
Dim ws As Object
For Each ws In Sheets
If ws.Index <> Sheets("Name1").Index
Then ws.Visible = False
Next
End Sub