Gruppe
Allgemein
Problem
Über eine Schaltfläche soll von Blatt zu Blatt gesprungen werden, wobei die übrigen Arbeitsblätter jeweils xlVeryHidden auszublenden sind.
StandardModule: Modul1
Sub EinAusblenden()
Dim wks As Worksheet
Set wks = ActiveSheet
Worksheets(ActiveSheet.Buttons(Application.Caller).Caption).Visible = xlSheetVisible
wks.Visible = xlSheetVeryHidden
End Sub