Blattauswahl über Schaltflächen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

234304    225904

Problem: Über vier Schaltflächen sollen Tabellenblätter gem. Schaltflächenaufschrift ausgewählt werden.

StandardModule: Modul1

Sub SelectCover()
   Application.Goto Worksheets("Cover").Range("A1"), True
End Sub

Sub SelectSheets()
   Dim sWks As String
   sWks = ActiveSheet.Buttons(Application.Caller).Caption
   Application.Goto Worksheets(sWks).Range("A1"), True
End Sub