Vorhandenes Kontextmenü erweitern

Hinweis: Dieses Makro funktioniert nur bis einschl. der Version Excel 2003

Dieses Makro erweitert ein vorhandenes Kontextmenü um einen Eintrag. In diesem Fall heißt der neue Eintrag "Meine eigene Routine".

Sub kontextmenue_erweitern()
    'Den Eintrag "Meine eigene Routine" löschen
    Call kontextmenue_loeschen
    
    Dim Kontext As Object
    'Eigenen Eintrag hinzufügen
    Set Kontext = CommandBars("Cell").Controls.Add
    Kontext.BeginGroup = True
    With Kontext
        .Caption = "Meine eigene Routine"
        .OnAction = "Makro"
        .FaceId = 122
    End With
End Sub



Dieses Makro löscht den Eintrag "Meine eigene Routine"

Sub kontextmenue_loeschen()
   'Eintrag "Meine eigene Routine" löschen
   On Error Resume Next
   CommandBars("Cell").Controls("Meine eigene Routine").Delete
End Sub




Hierbei handelt es sich um den Code, der ausgeführt wird, wenn der Kontext-Menüpunkt "Meine eigene Routine" angeklickt wurde.

Sub Makro()
    'Makro das ausgeführt wird, wenn der Menüpunkt "Meine eigene Routine"
    'angeklickt wird
    MsgBox "Du hast mich angeklickt!", vbExclamation
End Sub




Dieses Makro setzt das Kontextmenü in den Ursprungszustand zurück.

Sub reset()
'Kontextmenü in den Ursprungszustand zurücksetzen
Application.CommandBars("Cell").reset
End Sub

 

     sitepanel e mail Anfrage per E-Mail   |   sitepanel telephone 0151 - 164 55 914   |    sitepanel formular  Anfrage per Kontaktformular      |     Excel-Hilfeforum Hilfe-Forum

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.