Office: (Office 2010) Combobox Werte aufnehmen ohne doppelte Werte

Mark_808 · 27. Mai 2015

Hallo zusammen,

ich habe in einem Tabellenblatt zwei Comboboxen integriert, die ich mit Werten befüllen möchte, die in einem weiteren Tabellenblatt in Spalte B aufgelistet sind. Momentan befüll ich noch die beiden Comboboxen durch einen Code der allerdings ständig angepasst werden muss, wenn ein neues Teil hinzukommt.

Private Sub Workbook_Open()
Call Worksheets("Tabelle1").Activate

With Worksheets("Tabelle1")
With .ComboBox1
If .ListCount 0 Then .Clear
.AddItem "Teil1"
.AddItem "Teil2"
.AddItem "Teil3"
.AddItem "Teil4"
End With
With .ComboBox2
If .ListCount 0 Then .Clear
.AddItem "Teil1"
.AddItem "Teil2"
.AddItem "Teil3"
.AddItem "Teil4"
End With
End With
End Sub

Ich möchte jedoch erreichen, dass durch einen Code die beiden Comboboxen selbstständig befüllt werden und zwar ohne doppelte Werte zu übernehmen. Außerdem kann die Spalte B, wo die Werte hinterlegt sind erweitert werden, sodass diese Werte auch automatisch in die Comboboxen mit aufgenommen werden. Ich habe schon einiges zu diesem Thema gefunden, leider handelt es sich meistens bei den vorhanden Probleme um Comboboxen die in einer User Form integriert sind und nicht direkt in einem Tabellenblatt. Wäre nett wenn mir jemand weiterhelfen könnte, wie so ein Code aussehen könnte *Smilie. Vielen Dank.

Gruß
Mark

:)

Hajo_Zi · 28. Mai 2015

warum weist Du Werte zu ich denke die stehen in der Tabelle?
Mal ein Ansatz für UserForm
keine Doppelten in Listbox

Beverly · 28. Mai 2015

Hi Mark,

das kannst du z.B. so lösen:

Code:

Private Sub Workbook_Open()
Dim lngLetzte As Long
Dim lngZaehler As Long
Dim objDic As Object
Dim varBereich
Dim arrDaten()
Set objDic = CreateObject("Scripting.Dictionary")
With Worksheets("Tabelle2")
lngLetzte = IIf(IsEmpty(Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
varBereich = .Range(.Cells(5, 2), .Cells(lngLetzte, 2))
For lngZaehler = LBound(varBereich) To UBound(varBereich)
' Eintrag wird nur übernommen wenn er im DictionaryObject noch nicht enthalten ist
objDic(varBereich(lngZaehler, 1)) = 0
Next lngZaehler
arrDaten() = objDic.keys
End With
With Worksheets("Tabelle1")
With .ComboBox1
If .ListCount 0 Then .Clear
.List = arrDaten()
End With
With .ComboBox2
If .ListCount 0 Then .Clear
.List = arrDaten()
End With
End With
Set objDic = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Combobox Werte aufnehmen ohne doppelte Werte

Combobox Werte aufnehmen ohne doppelte Werte

Combobox Werte aufnehmen ohne doppelte Werte

Combobox Werte aufnehmen ohne doppelte Werte - Similar Threads - Combobox Werte aufnehmen

Auswahl über Combobox dann Werte kopieren

wert aus ComboBox prüfen dann hinzufügen

Userform Textfeld füllen abhängig von Wert aus Combobox

Werte in Combobox einlesen und in Variablen speichern

Wert in Combobox anzeigen

ComboBox-Werte auslesen für Ausdrucks-Generator

automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern