Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Begriff in der ersten Spalte einer ListBox suchen

Gruppe

ListBox

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