Excel und VBA - Die Excel-FAQ

Arbeitsblätter ausblenden

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Arbeitsblätter ausblenden

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