Was als .OnAction angeben?
25.07.2016 14:06:28
Hendrik
ich habe ein Listbox auf einem Userform. Diese hat ein Kontextmenü und u.a. den Eintrag "hinzufügen".
Nun gibt es auch die Schaltfläche "cbHinzufuegen" und bereits die Private Sub _ cbHinzufuegen_Click(). Diese Prozedur soll auch durch den Kontexteintrag aufgerufen werden. Der Befehl
.OnAction = "cbHinzufuegen_Click"
scheint aber nicht zu funktionieren. Was kann ich als .OnAction angeben?Dies hier wird bei der Initialisierung des UserForms ausgeführt:
Set cmdBarKontext = Application.CommandBars.Add(Name:="liboRegelnKontext", Position:= _
msoBarPopup, temporary:=True)
Set cmdBarKontextBtn = cmdBarKontext.Controls.Add(msoControlButton)
With cmdBarKontextBtn
.Caption = "Eintrag hinzufügen"
.OnAction = "cbHinzufuegen_Click"
.Style = msoButtonIconAndCaption
End With
Set cmdBarKontextBtn = Nothing
Set cmdBarKontext = Nothing
Und das gibts auch noch:
Private Sub liboRegeln_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As _
Single, ByVal Y As Single)
If Button = 2 Then
With CommandBars("liboRegelnKontext")
.ShowPopup
End With
End If
End Sub
Danke und GrüßeHendrik