Hallo,
Ich würde gerne eine ListBox mit einer TextBox durchsuchen. Meine LixtBox befülle ich über UserForm_Initialize.
Daten die nicht mit mit denen in der TextBox übereinstimmen werden gelöscht.
Habe schon folgenden Code gefunden und die Sachen rausgeschmissen, die ich nicht benötige (dass die ListBox mehrere Spalten hat, die auch durchsucht werden)
'Listbox2 durchsuchen
Private Sub TextBox1_Change()
Dim i As Integer
Dim lngLaenge As Long
Dim strTex As String
Me.ListBox2.Clear
UserForm_Initialize
lngLaenge = Len(Me.TextBox1.Value)
If Left(Me.TextBox1.Value, 1) = "*" Then
strText = LCase(Replace(Me.TextBox1.Value, "*", ""))
For i = Me.ListBox2.ListCount - 1 To 0 Step -1
If InStr(LCase(Me.ListBox2.List(i, 2)), strText) > 0 Then
Else
Me.ListBox2.RemoveItem i
End If
Next i
Else
For i = Me.ListBox2.ListCount - 1 To 0 Step -1
If LCase(Left(Me.ListBox2.List(i, 0), lngLaenge)) = LCase(Me.TextBox1.Value) Then
Else
Me.ListBox2.RemoveItem i
End If
Next i
End If
End Sub
Aus mir unerklärlichen Gründen, bringt er einen Laufzeitfehler, wenn ListBox2 geleert werden soll.
Vielleicht könnte mir jemand weiter helfen.
Mfg Simon
|