VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsblätter ausblenden

Gruppe

Allgemein

Bereich

Ansicht

Thema

Arbeitsblätter ausblenden

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht