Thema: Element auswählen

Home

In Abhängigkeit der Eingabe in eine TextBox wird eine Listenelement in einer ListBox selektiert.

Prozedur: txtSuchen_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Element auswählen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle ListBox-Elemente starten
- Wenn das kleingeschriebene aktuelle ListBox-Element dem kleingeschriebenen TextBox-Text entspricht...
- Aktuelles ListBox-Element markieren
- Prozedur verlassen

Code:


Private Sub txtSuchen_Change()
   Dim iCounter As Integer
   For iCounter = 0 To lstSuchen.ListCount - 1
      If UCase(Left(lstSuchen.List(iCounter), _
         Len(txtSuchen.Text))) = UCase(txtSuchen.Text) Then
         lstSuchen.Selected(iCounter) = True
         Exit Sub
      End If
   Next iCounter
End Sub