Suchen in einer Listbox

Hallo, ich habe eine Frage. Ich habe eine Listbox in der ich per Button Werte aus deiner Combobox eintragen möchte. Ziel ist es, dass keine Werte doppelt darin stehen, deshalb habe ich mir versucht eine kleine Prüfung zu bauen, die einfach i hochzählt und das so lange bis sie den Name & i nicht findet, und diesen Wert dann einträgt.
Das z.B. sowas dabei raus kommt

AA
AA 2
AA 3
BB
CC
DD 2
EE
...

jedoch habe ich irgendwie einen Denkfehler und ab 2 hört er auf weiter zu zählen.

If .ListCount = 0 Then 'wenn kein Eintrag vorhanden
.AddItem Cbb_Auswahl.Value 'Füge Wert direkt hinzu
Exit Sub
Else
For ii = 0 To .ListCount - 1 'sonst suche per Schleife
If .List(ii) = Cbb_Auswahl.Value Then
gefunden = True 'Wenn Wert vorhanden setze Schalter
End If
Next
End If
If gefunden = True Then 'Wenn Schalter gesetzt setze Hilfsschalter
gefunden2 = gefunden
Do Until gefunden2 = False 'Suche so lange bis HS auf False
i = i + 1
For ii = 0 To .ListCount - 1
If Not .List(ii) = Cbb_Auswahl.Value & " " & i Then
gefunden2 = False 'setze HS auf False da Wert Frei
End If
Next
Loop
.AddItem Cbb_Auswahl.Value & " " & i 'Füge Wert hinzu mit i
Else
.AddItem Cbb_Auswahl.Value
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lngIndex As Long, lngList As Long, bolFound As Boolean, strAdd As String With ListBox1 If .ListCount = 0 Then .AddItem CCB_Auswahl.Text Else Do strAdd = CCB_Auswahl.Text & IIf(lngIndex > 0, " " & CStr(lngIndex), "") For lngList = 0 To .ListCount - 1 If .List(lngList, 0) = strAdd Then bolFound = True Exit For End If Next If Not bolFound Then .AddItem strAdd Exit Do End If lngIndex = lngIndex + 1 bolFound = False Loop End If End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Moin!
Der "Fehler" liegt an der inneren Schleife mit ii. Dort prüfst du den Wert aus der Combo mit dem aktuellen in der Listboxzeile. Wird er nicht gefunden (was i.d.R. gleich vorkommt - der mit der Zahl kommt ja erst weiter hinten), setzt du die Abbruchbeding und damit kommt ein falscher Wert. Du müsstest die ganze Liste durchgehen und erst am Ende entscheiden, ob der Wert noch nicht drin war und nicht schon beim ersten. Habe den Code mal geändert. HAbe die gefunden Varibalen ein wenig anders gesetzt. So geht es:

If .ListCount = 0 Then 'wenn kein Eintrag vorhanden
.AddItem Cbb_Auswahl.Value 'Füge Wert direkt hinzu
Exit Sub
Else
For ii = 0 To .ListCount - 1 'sonst suche per Schleife
If .List(ii) = Cbb_Auswahl.Value Then
gefunden = True 'Wenn Wert vorhanden setze Schalter
End If
Next
End If
If gefunden = True Then 'Wenn Schalter gesetzt setze Hilfsschalter
Do Until gefunden = False 'Suche so lange bis HS auf False
i = i + 1
gefunden2 = False
For ii = 0 To .ListCount - 1
If .List(ii) = Cbb_Auswahl.Value & " " & i Then
gefunden2 = True 'setze HS auf False da Wert Frei
End If
Next
If gefunden2 = False Then gefunden = False
Loop
.AddItem Cbb_Auswahl.Value & " " & i 'Füge Wert hinzu mit i
Else
.AddItem Cbb_Auswahl.Value
End If

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen in einer Listbox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread