Gruppe
Dialog
Bereich
ListBox
Thema
Begriff in der ersten Spalte einer ListBox suchen
Problem
In einer UserForm soll ein Suchbegriff in der ersten Spalte einer mehrspaltigen Listbox gesucht und markiert werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmSearch
Private Sub cmdCancel_Click()
Unload Me
End Sub
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
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
lstData.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1
Sub CallForm()
frmSearch.Show
End Sub