Problem mit VBA Listbox

Hallo

Ich habe mit VBA in Excel eine Listbox erstellt. Diese fülle ich mit ca. 60 Einträgen aus einer Tabelle. Leider sind unter diesen 60 Einträgen etwa 25 doppelte darunter. Dies variert von Tabelle zu Tabelle.

Wie kann ich nun diese Listbox „reinigen“ so das keine doppelten Einträge darin vorhanden sind?

Gruss
Nico

Hallo. Hier ein Möglicher Code. Musst den Text, den Du hinzufügen willst, angeben, sowie das ListBox. Wenn das Element schon vorkommt, wird es nicht hinzugefügt.

Sub AddItemToListBox(ByVal a_lstBox As ListBox, ByVal a_strEntry As String)

Dim m_lng As Long
Dim m_bol As Boolean

For m_lng = 1 To a_lstBox.ListCount

If a_lstBox.List(m_lng - 1) = a_strEntry Then
m_bol = True
End If
Next

If Not m_bol Then
a_lstBox.AddItem a_strEntry
End If

End Sub

Gruss, Daniel