Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellkontextmenü löschen und aufbauen

Gruppe

Context

Problem

Wie kann ich die Menüpunkte des eingebauten Zellkontextmenüs komplett entfernen und eigene Menüpunkte einfügen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call ResetContext
End Sub

StandardModule: basMain

Sub EditContext()
   Dim oBtn As CommandBarButton
   With Application.CommandBars("Cell")
      Do While .Controls.Count > 0
         .Controls(1).Delete
      Loop
      Set oBtn = .Controls.Add
   End With
   With oBtn
      .Caption = "MeinBefehl"
      .OnAction = "MeinMakro"
   End With
End Sub

Sub ResetContext()
    Application.CommandBars("Cell").Reset
End Sub

Sub MeinMakro()
   MsgBox "Makroaufruf aus dem Zellkontextmenü!"
End Sub

    

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