VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellkontextmenü Befehle hinzufügen

Gruppe

Menue

Bereich

Context

Thema

Zellkontextmenü Befehle hinzufügen

Problem

Wie kann ich dem Kontextmenü eigene Schaltflächen hinzufügen?

Lösung

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




StandardModule: basMain

Sub NewMenuItem()
   Dim oBtn As CommandBarButton
   On Error Resume Next
   Application.CommandBars("Cell") _
      .Controls("Notiz bearbeiten").Delete
   On Error GoTo 0
   Set oBtn = CommandBars("Cell").Controls.Add
   With oBtn
      .Caption = "Notiz bearbeiten"
      .OnAction = "Notiz"
      .Style = msoButtonCaption
   End With
End Sub

Sub Notiz()
    MsgBox "Ich bin die Notiz!"
End Sub

Sub CmdBarReset()
   On Error Resume Next
   Application.CommandBars("Cell") _
      .Controls("Notiz bearbeiten").Delete
End Sub

    


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