ListBox nächsten Wert suchen
13.11.2019 09:10:11
Matthias
ich habe eine Userform mit einer ListBox. Weiterhin habe ich ein Suchfeld (TextBox) mit dem ich einen Begriff oder Teile davon in der ListBox suchen und auswählen lassen kann. Das funktioniert auch soweit ganz gut.
Folgendes würde ich gerne umsetzen:
Die Suche findet immer zuerst den letzen Wert in der ListBox, ich würde gerne beim ersten starten.
Über zwei Commandbutton für letzten Wert suchen und nächsten Wert suchen, würde ich gerne durch alle Werte nacheinander (immer nur einer, kein MultiSelect) wechseln können.
Ich habe bereits eine Variante mit einer MsgBox gefunden die dann immer weiter sucht, ich würde aber gerne nur per Klick auf den Commandbutton arbeiten. Der Code sieht bisher wie folgt aus.
Für das Suchfeld (es gibt noch einen Hinweis, falls die ListBox leer ist):
Private Sub TextBoxSuche_Change()
If ListBox1.ListCount = 0 Then
MsgBox "Tabelle ist leer, bitte Auswahl treffen."
Else
Call Suche
End If
End Sub
Für den Weitersuchbutton (soll dann auch noch einen Rückwärtssuchbutton geben)
Private Sub CommandButtonForward_Click()
If ListBox1.ListCount = 0 Then
MsgBox "Tabelle ist leer, bitte Auswahl treffen."
Else
Call SucheWeiter
End If
End Sub
Das Sub für die initiale Suche funktioniert wunderbar sobald ich was ins Feld eingebe, nur sucht es eben den letzten und nicht den ersten Wert zuerst:
Private Sub Suche()
Dim i As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(TextBoxSuche)
vntList = ListBox1.List
ReDim arrSelected(ListBox1.ListCount - 1)
For i = 0 To ListBox1.ListCount - 1
For ii = 0 To ListBox1.ColumnCount - 1
arrSelected(i) = InStr(LCase(vntList(i, ii)), strTxt) > 0
If arrSelected(i) Then Exit For
Next
Next
With ListBox1
For i = 0 To .ListCount - 1
.Selected(i) = arrSelected(i)
Next
End With
End Sub
Das Sub für die Weiter Suche nur über die MsgBox und nicht über den Commandbutton, die blaue Markierung soll nach jedem Klick einfach weiter (oder dann eben auch zurück) zum nächsten Wert springen:
Private Sub SucheWeiter()
Dim Suchbegriff As String
Dim arr
Dim Z As Long
Dim S As Integer
Dim Start As Long
Suchbegriff = TextBoxSuche.Text
arr = ListBox1.List
Start = 0
For Z = Start To UBound(arr)
For S = 0 To UBound(arr, 2)
If arr(Z, S) Like "*" & Suchbegriff & "*" Then
Start = Z + 1
'If MsgBox(arr(Z, S) & " " & Z, vbYesNo, "Weitersuchen ?") = vbNo Then Exit Sub
ListBox1.ListIndex = Z
Exit For
End If
Next
Next
End Sub
Wäre super, wenn ich hier nochmal Hilfe bekommen könnte. Dankeschön.