Wollen Sie blitzschnell Ordnung in Ihrer Arbeitsmappe bringen und alle Tabellenblätter mit Ausnahme es aktiven Tabellenblattes ausblenden, dann können Sie hierfür das folgende Makro einsetzen:
Sub Alle_Tabellenblaetter_ausblenden()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ThisWorkbook.Worksheets
If Tabellenblatt.Name <> ThisWorkbook.ActiveSheet.Name Then
Tabellenblatt.Visible = xlSheetHidden
End If
Next Tabellenblatt
End Sub
So gehts:
- Wählen Sie das entsprechende Tabellenblatt im Blattregister aus, welches nicht ausgeblendet werden soll.
- Starten Sie das obige Makro
- Danach werden alle Tabellenblätter mit Ausnahme des aktiven Tabellenblattes ausgeblendet