Excel und VBA - Die Excel-FAQ

Blattauswahl über Schaltflächen

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

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