✔ Einträge von ComboBox 2 entfernen, wenn in ComboBox 1 schon vorhanden

[waswiewo]

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:

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:

  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