Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Blattwechsel zwischen xlVeryHidden ausgeblendeten Blättern
Problem
Über eine Schaltfläche soll von Blatt zu Blatt gesprungen werden, wobei die übrigen Arbeitsblätter jeweils xlVeryHidden auszublenden sind.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub EinAusblenden()
Dim wks As Worksheet
Set wks = ActiveSheet
Worksheets(ActiveSheet.Buttons(Application.Caller).Caption).Visible = xlSheetVisible
wks.Visible = xlSheetVeryHidden
End Sub