Listbox durchsuchen
02.05.2019 15:13:42
Tim
ich habe einen Code der es mir ermöglicht, Suchbegriffe in einer Tabellenspalte zu suchen, dabei findet er auch Treffer, wenn Teile des Suchbegriffes gefunden werden. Das Ganze funktioniert gut.
Jetzt würde ich gern diese Funktion nutzen wollen, um in einer Listbox zu suchen und bei Treffern die jeweilige Zeile ausgewählt wird (Mehrfachauswahl), jedoch bekomme ich das nicht umgebaut.
Wer kann mir dabei helfen?
Sub Suchfunktion()
Dim wksDaten As Worksheet, rng As Range, raListbox As Range
Dim wkbDaten As Workbook
Dim loLetzte As Long, loSpalte As Long, strSuchbegriff As String
Set wkbDaten = Workbooks("Test")
Set wksDaten = wkbDaten.Sheets("Suchen")
With wksDaten
strSuchbegriff = UserForm1.TextBox1
If WorksheetFunction.CountIf(.Columns(2), "*" & strSuchbegriff & "*") = 0 Then
'MsgBox "Der Suchbegriff " & strSuchbegriff & " wurde nicht gefunden."
ElseIf WorksheetFunction.CountIf(.Columns(2), "*" & strSuchbegriff & "*") = 1 Then
Set rng = wksDaten.Columns(2).Find(What:=strSuchbegriff, LookIn:=xlValues, LookAt:= _
xlPart)
MsgBox "gefunden"
End If
End With
Set wksDaten = Nothing: Set rng = Nothing
End Sub