mit folgendem Code kann ich sehr schön die Listbox1 durchsuchen:
Private Sub BTN_Suche_Click()
Dim liSuche As Integer, liMsg As Integer, liSuche1 As Integer
For liSuche = 0 To ListBox1.ListCount - 1
For liSuche1 = 0 To ListBox1.ColumnCount - 1
If InStr(1, ListBox1.Column(liSuche1, liSuche), TB_Suche.Text) > 0 Then
ListBox1.ListIndex = liSuche
liMsg = MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
If liMsg = vbNo Then Exit Sub
End If
Next
Next
MsgBox "Keine oder keine" & vbCrLf & "weiteren Ergebnisse vorhanden!", vbInformation, "Suche _
abgeschlossen"
End Sub
Kann das so erweitert werden, dass nur Ergebnisse angezeigt werden, die in Spalte X der Listbox den String "verfügbar" enthalten? Wie immer vielen Dank für die Hilfe!Vic