Hallo, ich habe eine Textbox die ich als Suchfeld nutze und diese öffnet mir dann eine Userform und in Listview erhalte ich dann die Treffer. Wenn ein Name jedoch 3x vorkommt ist er auch dreimal in der Listview zur Auswahl. Ich kriege es leider nicht raus. Ich hoffe ihr könnt mir weiterhelfen:
Sub Name()
searchstring = TextBox1.Value
Dim resultarray(1 To 500) As String
Dim g As Integer
Dim j As Integer
t = 1
For i = 2 To 500
If InStr(1, Sheets("Tabelle1").Cells(i, 8), searchstring, vbTextCompare) <> 0 Then
resultarray(t) = Sheets("Tabelle1").Cells(i, 8)
'mit dem nächsten Teil will ich die doppelten Filtern
g = UserForm1.ListView1.ListItems.count
Do While g > 1
For j = g - 1 To 1 Step -1
If UserForm1.ListView1.ListItems(j).Text = UserForm1.ListView1.ListItems(g).Text Then
UserForm1.ListView1.ListItems.Remove j
g = g - 1
End If
Next
g = g - 1
Loop
t = t + 1
End If
Next i
'Sortierung und Anzeige der Listview
With UserForm1.ListView1
.FullRowSelect = True
.View = lvwReport
.Sorted = True
.SortOrder = lvwAscending
.LabelEdit = lvwManual
.ColumnHeaders.Add , , "Name", 400
End With
i = 1
While Not resultarray(i) = ""
Set lvRes = UserForm1.ListView1.ListItems.Add(, , resultarray(i))
i = i + 1
Wend
UserForm1.Show False
End Sub
Vielen Dank!!!
|