Die Excel/VBA-Beispiele (incl. aller Arbeitsmappen: http://www.herber.de/samples/inhalt.html)

Blattauswahl über Schaltflächen

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