VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Listbox-Eintrag durch Mausbewegung markieren

Gruppe

Dialog

Bereich

ListBox

Thema

Listbox-Eintrag durch Mausbewegung markieren

Problem

Wie kann ich bei XL8 in einer UserForm durch das Bewegen des Mauszeigers die Auswahl in einer ListBox verändern, ohne dass ein Mausklick erfolgt?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




StandardModule: basMain

Sub CallForm()
   frmMouseMove.Show
End Sub

ClassModule: frmMouseMove

Private Sub cmdContinue_Click()
    Unload Me
End Sub

Private Sub lstMouse_MouseMove( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal X As Single, _
    ByVal Y As Single)
    If Int(Y / 4) < lstMouse.ListCount Then
        lstMouse.ListIndex = Int(Y / 4)
    End If
End Sub

    


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