ich habe eine textbox als Suchfeld für Daten genutzt. Wenn ich nun Buchstaben vorgebe öffnet sich eine Userform mit Listview. In dem Listview kann ich dann einen Namen auswählen, leider erscheinen einige Namen in der Ausgangsspalte doppelt. In der List sollten Sie aber nur einmal erscheinen.
Nach mehreren erfolglosen Versuchen würde ich mich über Hilfe freuen. Meine VBA Kenntnisse sind nicht sonderlich gut, deshalb bitte ich da um ein wenig Verständnis.
Danke
Sub Name()
searchstring = TextBox1.Value
Dim resultarray(1 To 500) As String
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)
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