Hallo Community,

Ich habe 4 Comboboxen, die ich bei nem kleinen Spiel als Namen-Auswahl nutze. Alle Comboboxen enthalten die selben Namen.

Wenn ich bei der ersten ComboBox z.B. "Hans" auswähle, soll in der 2ten. 3ten und 4ten Box dieser Name nicht mehr verfügbar sein. D.h. ".enabled = false", oder den kompletten Eintrag löschen.

Hab schon wie verrückt rumprobiert und gegoogelt, leider bislang ohne Erfolg.

Kann man das irgendwie realisieren?

Hab es zuletzt so versucht:

Code :

1 2 3 4 5

If sp1.Text <> "" Then sp2.RemoveItem (" & sp1.Text & ")   oder   If sp1.Text <> "" Then sp2.RemoveItem "" & sp1.Text & ""

Kommt bei beidem die Fehlermeldung "Ungültiges Argument"

Mfg waswiewo


EDIT################################################

Hab es herausgefunden. Falls jemand irgendwann mal des selbe Problem haben sollte:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim i As Long, Name As String     Name = sp1.Text     For i = 0 To sp2.ListCount - 1       If sp2.List(i) = Name Then         sp2.RemoveItem (i)       sp3.RemoveItem (i)       sp4.RemoveItem (i)             sp2.Enabled = True         Exit For       End If     Next i