När jag laddar in flera saker i en combobox och man t.ex får ordet "boll" två gånger, hur gör jag för att bara få en lstning av "boll"?

Typ.. om boll redan finns radera nästa boll..

/marcus

tja... du kan skriva ngt i stil med:

<code>
Private Sub laggTill(ByVal text As String, ByRef lista As ListBox)

If textFinnsILista(text, lista) Then
'gör inget
Else
'lägg till
Call lista.AddItem(text)
End If
End Sub

Private Function textFinnsILista(ByVal text As String, ByRef lista As ListBox) As Boolean
Dim finns As Boolean
Dim i As Integer

finns = False
i = 0
'loopar igenom listan tills posten hittas eller listan är slut
Do Until finns Or lista.ListCount <= i
If lista.List(i) = text Then finns = True
i = i + 1
Loop
textFinnsILista = finns
End Function


Anropas med:
Call laggTill("boll", List1)
</code>

/Emma

Skulle förenkal det till:
<code>
Private Sub AddListItem(ByVal Text As String, ByRef ListBox As ListBox)
Dim Index As Long
For Index = 0 to ListBox.ListCount - 1
If Text = ListBox.List(Index) Then
Exit sub
End IF
Next
ListBox.AddItem text
End Sub


</code>
Annars Kan man skicka LB_FindStringExact eller liknande medelande till Combo-/Listboxen för att kontrolera om strängen finns med.