Mit Textbox suchen

oraculix · 2021-03-17T09:33:20+00:00

Hallo Ich möchte gerne über Eingabe in Textbox3 in der Iistbox1 Suchen Die Daten kommen aus Spalte A;B Tabelle FilmDB. in die Listbox1 Leider kann ich die Mappe nicht hochladen weil sie zu groß ist. Frage : wie Suche ich in Textbox und zeige das ergebniss in Listbox an?

ich habe einen code gefunden aber der gibt immer eine msgbox aus wie kann ich das ändern das er mir nur die treffer zeigt in listbox?

Private Sub CommandButton8_Click()
Dim feld() As String, index1 As Integer, index2 As Integer, index3 As Integer, gefunden As  _
Boolean
If Len(TextBox3) > 2 Then
For index1 = Len(TextBox3) To 3 Step -1
For index2 = 1 To Len(TextBox1) - index1 + 1
index3 = index3 + 1
ReDim Preserve feld(1 To index3)
feld(index3) = Mid(TextBox3, index2, index1)
Next
Next
For index1 = 1 To UBound(feld)
For index2 = 0 To ListBox1.ColumnCount - 1
For index3 = 0 To ListBox1.ListCount - 1
If InStr(1, LCase(ListBox1.List(index3, index2)), LCase(feld(index1))) > 0  _
Then
ListBox1.Selected(index3) = True
gefunden = True
If MsgBox("Weitersuchen.", 36, "Frage") = 7 Then Exit Sub
End If
Next
Next
Next
If Not gefunden Then MsgBox "Suchbegriff nicht gefunden.", 64, "Information" Else  _
MsgBox "Keine weitere Übereinstimmung gefunden", 64, "Information"
Else
MsgBox "Suchbegriff muss mindestens dreistellig sein.", 48, "Hinweis"
End If
End Sub

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub


Private Sub TextBox1_Change()
Dim vntARR, i As Long
Dim strMatch As String
Dim objList As Object
strMatch = "*" & LCase(TextBox1) & "*"
Set objList = CreateObject("scripting.dictionary")
vntARR = Sheets(1).Cells(1, 1).CurrentRegion
For i = 1 To UBound(vntARR)
If (LCase(vntARR(i, 1)) Like strMatch Or LCase(vntARR(i, 2)) Like strMatch) Then
objList(i) = Array(vntARR(i, 1), vntARR(i, 2))
End If
Next i
ListBox1.Clear
If objList.Count Then
If objList.Count > 1 Then
vntARR = Application.Transpose(Application.Transpose(objList.items))
ListBox1.List = vntARR
Else
vntARR = objList.items
ListBox1.AddItem vntARR(0)(0)
ListBox1.List(0, 1) = vntARR(0)(1)
End If
End If
Set objList = Nothing
End Sub

Gruß
Rudi

Forumthread: Mit Textbox suchen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Mit Textbox in ListBox suchen und filtern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)