Excel und VBA - Die Excel-FAQ

Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen
Produkte
Service
Sonstiges
RSS

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen

Problem: Über mehrere Schaltflächen 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