Suchmaschine Problem mit Formeln
17.07.2018 13:45:54
Stephan
ich habe eine Suchmaschine, die ein Datenblatt nach einem bestimmten Begriff einer Textbox durchsucht und dann die Zeile in der der Begriff vorkommt in einer ListBox anzeigt. Der Code dafür steht weiter unten.
Das klappt alles auch prima, allerdings hat das Makro ein Problem damit, sobald ich eine Zelle in einer Zeile durch einen SVERWEIS mit Daten füttere. Dann bekomm ich immer ein Laufzeitfehler - ´13´ Typen unverträglich. Jemand eine Idee, wie man das Probem lösen kann?
Vielen Dank und viele Grüße,
Stephan!
Private Sub CommandButton_Suchen_Click()
Dim lngRow As Long, lngColumn As Long
Dim blnFound As Boolean
Dim strText As String
strText = TextBox1.Text
With ListBox_Liste
For lngRow = .ListCount - 1 To 2 Step -1
blnFound = False
For lngColumn = 0 To .ColumnCount - 1
If InStr(1, .List(lngRow, lngColumn), strText, vbTextCompare) 0 Then
blnFound = True
Exit For
End If
Next
If Not blnFound Then Call .RemoveItem(lngRow)
Next
End With
End Sub
Anzeige