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)
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
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