Inhaltsverzeichnis
Klicken Sie mit der rechten Maustaste, um ein Makro aufzurufen
Hier ist ein Code, der es einem Benutzer ermöglicht, Ihr Makro aus dem Standardmenü auszuwählen, das angezeigt wird, nachdem er mit der rechten Maustaste auf eine Zelle geklickt hat.
1. Geben Sie den folgenden Code in das Codefenster von ThisWorkbook ein
Private Sub Workbook_Open() Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu("Dies ist mein benutzerdefiniertes Menü", 1) Mit MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", , 1 , , "" .Add "MyMacro2", "MyMacro2", , 2, , "" End With Set MyMenu = Nothing End Sub
2. Fügen Sie den folgenden Code in ein Modul ein
Public Sub mymacro1() MsgBox "Macro1 aus einem Rechtsklickmenü" End Sub Public Sub mymacro2() MsgBox "Macro2 aus einem Rechtsklickmenü" End Sub
3. Schließen Sie Ihre Arbeitsmappe und öffnen Sie sie erneut!