Hallo,
hier mal ein Beispiel, wie man in einer mehrspaltigen Listbox nach einem Datum sucht, das über eine Textbox eingegeben wurde:
Private Sub CommandButton2_Click()
Dim Suchd As Variant
Dim z As Long
'Inhalt der Textbox in Datumswert umwandeln
Suchd = DateValue(Me.TextBox1) * 1
'Alle Elemente durchsuchen, hier bei mehrspaltigen Inhalten in einer Listbox
For z = 0 To ListBox1.ListCount
If Me.ListBox1.List(z, 0) = Suchd Then
Me.ListBox1.ListIndex = z
Exit For
End If
Next z
Hier wird davon ausgegangen, dass sich die Text- und Listbox in einer Userform befinden.
Gruß
M.O.
End Sub
