Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Blattauswahl über Schaltflächen
Problem
Über vier Schaltflächen sollen Tabellenblätter gem. Schaltflächenaufschrift ausgewählt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn den Schaltflächen zu.
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