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