Thema: Suchen und markieren

Home

TextBox-Wert in der ersten Spalte der ListBox suchen und Fundzeile markieren.

Prozedur: cmdSearch_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Suchen und markieren
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife über alle Zeilen der ListBox bilden
- Wenn der Wert der ersten Spalte der aktuellen ListBox-Zeile mit dem Inhalt der TextBox übereinstimmt...
- Aktuelle Zeile markieren

Code:


Private Sub cmdSearch_Click()
   Dim iRow As Integer
   For iRow = 0 To lstData.ListCount - 1
      If lstData.List(iRow, 0) = txtSearch.Text Then
         lstData.Selected(iRow) = True
      End If
   Next iRow
End Sub