Listbox kann nicht eindeutig Suchen
19.10.2016 10:36:48
Robert
ich nutze folgenden Code um eine Listbox zu befüllen:
Sub Suchen_Test()
Dim lng As Long
Dim i As Integer
Sheets("Test").Activate
Application.ScreenUpdating = True
With frm_Mealkit
.ListBox_Test.Clear
frm_Test.ListBox_Test.ColumnCount = 3
frm_Test.ListBox_Test.ColumnWidths = "280;150;50"
i = 0
For lng = 2 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 4).Value), LCase(.txt_Test.Value)) > 0 Then
.ListBox_Test.AddItem Cells(lng, 10).Value
.ListBox_Test.Column(1, i) = Cells(lng, 7).Value
.ListBox_Test.Column(2, i) = Cells(lng, 5).Value
.ListBox_Test.Column(3, i) = Cells(lng, 5).Row
i = i + 1
End If
Next lng
End With
End Sub
Die Werte in txt_Test entsprechenden den Zahlen 1-100. Jetzt zeigt mir die Listbox bei Aktivierung leider alle Daten die mit der gesuchten Zahl beginnen an. Also wenn ich 1 in txt_Test Eingebe kommen alle Daten zu 1 zu 10 und zu 100 bei 2 zu 2 und zu 20 bei 3 zu 3 und zu 30 und so weiter.
Wie muss ich den Code abändern damit nur nach der eindeutigen Zahl in txt_Test gesucht wird?
Danke schonmal und
Gruß
Robert