Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Als Zellkontextmenü Listbox aufrufen

Gruppe

ListBox

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