Arbeitsblätter ausblenden

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

218104    166802

Problem: Alle Arbeitsblätter ausser dem aktiven Blatt sollen aus- bzw. eingeblendet werden.

StandardModule: Modul1

Sub SheetsHidden()
   Dim wks As Worksheet
   For Each wks In ThisWorkbook.Worksheets
      If wks.Name <> ActiveSheet.Name Then
         wks.Visible = xlVeryHidden
      End If
   Next wks
End Sub

Sub SheetsVisible()
   Dim wks As Worksheet
   For Each wks In ThisWorkbook.Worksheets
      wks.Visible = True
   Next wks
End Sub