Gruppe
Dialog
Bereich
ListBox
Thema
Als Zellkontextmenü Listbox aufrufen
Problem
Wie kann ich das Zellkontextmenü durch eine UserForm mit einer Listbox ersetzen, aus der der ausgewählte Begriff in die aktive Zelle eingetragen wird?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: Tabelle4
Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Excel.Range, _
Cancel As Boolean)
Cancel = True
frmKontext.Show
End Sub
ClassModule: frmKontext
Private Sub lstKontext_Change()
ActiveCell = lstKontext.Value
Unload Me
End Sub