VBA: Contextmenü für Lisbox

Computer: Software & Programmierung Visual Basic
#1

Hallo alle zusammen,

ich versuche gerade ein Contextmenü zu programmieren, welches erscheinen soll, wenn ich auf eine Listbox ein rechts klick mache. Wie stelle ich das an?
Folgenden Code habe ich schon:

On Error Resume Next
Application.CommandBars(„mnuP“).Delete
On Error GoTo 0
Set comBar = Application.CommandBars.Add(„mnuP“, msoBarPopup)
Set button = comBar.Controls.Add(msoControlButton)
button.Caption = „Kopieren“
button.OnAction = „copya“

Wie kann ich nun sagen, dass dieses Menü erscheinen soll, wenn ich die Listbox anklicke. Einfach comBar.showpopup liefert den Fehler das die Methode fehlgeschalgen sei.

#2

ja Mensch. Der Code war richtig. Ich habe allerdings das Prog immer über den „Play“-Button gestartet und nicht über den Button, den in in der Excel-Tabelle habe… dann ging es.
Allerdings reagieren die Funktionen jetzt nicht.

der Code:

'Contextmenü für Listbox
Dim button As CommandBarButton

On Error Resume Next
Application.CommandBars(„mnuP“).Delete
On Error GoTo 0

Set comBar = CommandBars.Add(Name:=„mnuP“, Position:=msoBarPopup, Temporary:=False)
Set button = comBar.Controls.Add(msoControlButton)
button.Caption = „Kopieren“
button.OnAction = „copyCriteria“
button.FaceId = 19

Set button = comBar.Controls.Add(msoControlButton)
button.Caption = „Löschen“
button.OnAction = „cmdDel_Click“
button.FaceId = 47

Wenn ich aber auf kopieren bzw. Löschen klicke passiert gar nichts.
Mach ich in der Zeile „button.OnAction = „copyCriteria““ irgendwas falsch? Die Funktion gibt es!

Private Sub copyCriteria()
MsgBox „hier wird bald kopiert“
End Sub