Thema: Kontextmenü zur Auswahl von Arbeitsblättern aufrufen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_SheetBeforeRightClick( _
   ByVal Sh As Object, ByVal Target As Excel.Range, _
   Cancel As Boolean)
   Dim oBar As CommandBar
   Dim oBtn As CommandBarButton
   Dim wks As Worksheet
   Cancel = True
   Call CmdDelete
   Set oBar = Application.CommandBars.Add("Register", msoBarPopup)
   For Each wks In ThisWorkbook.Worksheets
      Set oBtn = oBar.Controls.Add
      With oBtn
         .Caption = wks.Name
         .Style = msoButtonCaption
         .OnAction = "mnuAuswahl"
      End With
   Next wks
   oBar.ShowPopup
End Sub

StandardModule: basMain

Sub mnuAuswahl()
   Worksheets(Application.Caller(1)).Select
End Sub

Sub CmdDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Register").Delete
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen Menue und Context