|
Hallo und vielen Dank an Gast,
der folgende Makro funktioniert einwandfrei. Er erstellt mir eine Liste und sortiert diese. Leider muss ich mir immer viel ergooglen was auch meistens funktioniert. In diesem Fall sind meine VBA Kenntnisse anscheinend zu dürftig um die Duplikate aus der Listview zu entfernen :-(
Da mein vorangegangener Vorschlag anscheinend nicht so dolle war, anbei der ursprünglich funktionierende Code. Wäre toll, wenn mir jmd sagen kann was ich wo implementieren muss.
Vielen Dank
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
|