mit folgendem VBA-Code suche ich einen bestimmten Wert in einer Spalte und übergebe ihn und weitere Werte in eine Listbox.
Sub suchen()
Dim lng As Long
Dim i As Integer
i = 0
ListBox1.Clear
Sheets("Tabelle1").Activate
For lng = 2 To ActiveSheet.UsedRange.Rows.Count + 1
If InStr(LCase(Cells(lng, 1).Value), LCase(TextBox1.Value)) > 0 Then
ListBox1.AddItem Cells(lng, 1).Value
ListBox1.Column(1, i) = Cells(lng, 2).Value
ListBox1.Column(2, i) = Cells(lng, 3).Value
ListBox1.Column(3, i) = Cells(lng, 2).Row
i = i + 1
Else
End If
Next lng
End Sub
Jetzt ist es allerdings so, dass jeder Wert in der Spalte, in dem der gesuchte Wert vorkommt, in der Listbox angezeigt wird.Bsp.: ich suche nach dem Wort "Haus"
In der Suchspalte stehen folgende Begriffe:
Haus
Haustür
Hauswand
Hausaufgaben
Jetzt werden alle 4 Begriffe in der Listbox angezeigt.
Wie muss ich meinen VBA-Code abändern, damit nur der gesuchte Wert angezeigt wird und nicht alle Werte, in denen Teile des gesuchten Wertes vorhanden sind? Gross- und Kleinschreibung sollten allerdings keine Rolle spielen.
Ich hoffe, ihr könnt mir helfen.
Vielen Dank und eine schönes Restwochenende...
Gruß Timo