combobox removeitem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jonny,
ein Beispiel:

Private Sub ComboBox1_Change()
    Call ClearItem(ComboBox1)
End Sub

Private Sub ComboBox2_Change()
    Call ClearItem(ComboBox2)
End Sub

Private Sub ClearItem(ByRef probjComboBox As MSForms.ComboBox)
    Dim objControl As Control
    Dim lngIndex As Long
    For Each objControl In Controls
        If TypeOf objControl Is MSForms.ComboBox Then
            If Not objControl Is probjComboBox Then
                For lngIndex = 0 To objControl.ListCount - 1
                    If objControl.List(lngIndex) = probjComboBox.Text Then
                        Call objControl.RemoveItem(lngIndex)
                        Exit For
                    End If
                Next
            End If
        End If
    Next
End Sub

Gruß
Nepumuk

Private Sub UserForm_Initialize() 'strListeVst wird der String, der die RowSource der Comboboxen darstellt Dim n As Long For n = 1 To Application.Max(Tabelle_Daten.Range("A:A")) If Tabelle_Daten.Rows(n + 2).EntireRow.Hidden = False Then strListeVst = strListeVst & ";" & Tabelle_Daten.Cells(n + 2, 1).Value End If Next n strListeVst = strListeVst & ";" 'der String strListeVst muss am Anfang und am Ende ein ";" _ aufweisen! End Sub

HI
wird mit RemoveItem und Index schwierig.
sobald du nämlich ein Element aus einer Combobox entfernt hast, ändern sich ja die Indizes im vergleich zu den anderen Boxen.
es gibt mehrere Möglichkeiten, das Problem anzugehen.
eine wäre folgende:
1. schreibe im Initialize-Event der Userform die Auswahlmöglichkeiten mit Trennzeichen getrennt in eine Modulweit gültige String-Variable (Deklaration ausßerhalb der Makros)
2. in den Drop-Button-Events der Comboboxen gehst übernimmst du dann diese String-Variable und löschst aus ihr alle Teiltexe, die schon von den andern Combobox belegt sind.
dann splittest du den Text in ein Array und weist ihn der Combobox zu.
um dir Schreibarbeit zu sparen, machst du den Schritt 2 ein einer eigenen Prozedur und rufst diese im Split-Event nur auf.
die jeweils aufrufende Combobox kann über das Objekt "ActiveControl" ermittelt werden, so dass du den Code allgemeingültig für jede Combobox schreiben kannt.
sieht als Code in etwas so aus:

Option Explicit
Dim strListeVst As String
Private Sub ComboBox1_DropButtonClick()
Call Combobox_Fill
End Sub
Private Sub ComboBox2_DropButtonClick()
Call Combobox_Fill
End Sub
Private Sub ComboBox3_DropButtonClick()
Call Combobox_Fill
End Sub
Private Sub UserForm_Initialize()
strListeVst = ";Auswahl1;Auswahl2;Auswahl3;Auswahl4;Auswahl5;"
End Sub
Private Sub Combobox_Fill()
Dim strListe As String
Dim cb As ComboBox
strListe = strListeVst
For Each cb In Me.Controls
If Not cb.Name = ActiveControl.Name Then
strListe = Replace(strListe, ";" & cb.Text & ";", ";")
End If
Next
strListe = Mid(strListe, 2, Len(strListe) - 2)
ActiveControl.List = Split(strListe, ";")
End Sub

Gruß Daniel

Private Sub Combobox_Fill() Dim strListe As String Dim cb As Control strListe = strListeVst For Each cb In Me.Controls If TypeName(cb) = "ComboBox" Then If Not cb.Name = ActiveControl.Name Then strListe = Replace(strListe, ";" & cb.Text & ";", ";") End If End If Next strListe = Mid(strListe, 2, Len(strListe) - 2) ActiveControl.List = Split(strListe, ";") End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

50 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

combobox removeitem

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

50 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread