Gruppe
Dialog
Problem
In einer UserForm soll ein Suchbegriff in der ersten Spalte einer mehrspaltigen Listbox gesucht und markiert werden.
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