Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsblätter ausblenden

Gruppe

Ansicht

Problem

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

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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