VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Als Zellkontextmenü Listbox aufrufen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox