Gruppe
Allgemein
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