Alle Tabellenblätter bis auf das aktive Tabellenblatt ausblenden (VBA)

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

Weiterführende Links bzw. interessante Artikel:

• Alle ausgeblendeten Tabellenblätter auf einmal einblenden
• Alle ausgeblendeten Tabellenblätter in einer Arbeitsmappe auf einmal einblenden (VBA)
• Alle ausgeblendeten Blätter auf einmal blitzschnell wieder einblenden (VBA)