Mit Textbox suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 vArr, i As Long Dim strMatch As String strMatch = "*" & LCase(TextBox1) & "*" vArr = ListBox1.List For i = 0 To UBound(vArr) ListBox1.Selected(i) = (LCase(vArr(i, 0)) Like strMatch Or LCase(vArr(i, 1)) Like strMatch) _ And strMatch "**" Next 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

Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 2 .ColumnWidths = "6cm;6cm" .ColumnHeads = False ListBox1.RowSource = "FilmDB!A2:B3000" ListBox1.ListIndex = ListBox1.ListCount - 2900 End With End Sub

Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 2 .ColumnWidths = "6cm;6cm" .ColumnHeads = False .List = Worksheets("FilmDB").Range("A2:B3000").Value .ListIndex = .ListCount - 2900 End With End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Textbox suchen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread