VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellkontextmenü löschen und aufbauen

Gruppe

Menue

Bereich

Context

Thema

Zellkontextmenü löschen und aufbauen

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