Office: Combobox

michael_001 · 22. März 2017

Hallo,

wer kann mir da weiterhelfen: wie können doppelte Einträge einer Ausgangstabelle in einer Combobox nicht angezeigt werden und zusätzlich die vorhandenen Einträge alphabetisch sortiert werden!? Ich würde den Code gerne im ComboBox_Change Ereignis integrieren.

:)

hary · 23. März 2017

Moin
Warum liest du nicht die Werte ohne doppelte aus?
Fuer den Code stehen die Wert ab A1 bis A?
Nimm dazu das Enterereigniss.
Code:

Private Sub ComboBox1_Enter()
Dim objSortedList As Object, objArrayList As Object
Dim lngIndex As Long
Dim vntArray As Variant
Set objSortedList = CreateObject(Class:="System.Collections.SortedList")
Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")
With Worksheets("Tabelle1") '--Blattname anpassen
vntArray = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value '--A1 bis letzte Zelle SpalteA
End With
For lngIndex = LBound(vntArray) To UBound(vntArray)
objSortedList(vntArray(lngIndex, 1)) = vbNullString
Next
objArrayList.AddRange objSortedList.Keys
ComboBox1.List = objArrayList.ToArray
ComboBox1.ListIndex = 0
Set objSortedList = Nothing
Set objArrayList = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

michael_001 · 23. März 2017

Hallo,

vielen Dank für den Codevorschlag! Eine Frage dazu: Wie muss ich den Code anpassen, wenn die Daten in der Comobox aus 2 oder mehreren Spalten stammen?

michael_001 · 24. März 2017

Hallo,

wie wäre es möglich die Daten, welche aus verschiedenen Tabellen in die ComboBox eingelesen werden zu sortieren bzw. Duplikate in der ComboBox zu vermeiden?

GraFri · 24. März 2017

Hallo

Daten aus 'Tabelle1' und 'Tabelle2' in eine Listbox ohne Duplikate schreiben.

Code:

Option Explicit

' Daten aus verschiedenen Tabellen und verschiedenen Bereichen in eine
' Combobox ohne Duplikate schreiben
Private Sub Liste_sortieren()
Dim objArrLst As Object
Dim myArr As Variant
Dim myCell As Range

Set objArrLst = CreateObject(Class:="System.Collections.ArrayList")

' Daten aus 'Tabelle1'
For Each myCell In Worksheets("Tabelle1").Range("A1:A5")
If objArrLst.Contains(myCell.Value) = False Then objArrLst.Add myCell.Value
Next

' Daten aus 'Tabelle2'
For Each myCell In Worksheets("Tabelle2").Range("D1:H1")
If objArrLst.Contains(myCell.Value) = False Then objArrLst.Add myCell.Value
Next

With objArrLst
.Sort
myArr = .ToArray
End With

' In Combobox eintragen
With ComboBox1
.Clear
.List = myArr
.ListIndex = 0
End With

Set objArrLst = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg, GraFri

Osttirodler · 14. März 2018

Hallo Harry, wenn du jetzt noch verrätst wie ich deinen Super funktionierenden Code auch auf spalte "B" und nicht auf Spalte "A" nutzen kann... würdest du mich sehr glücklich machen.
ich meine den ERsten Teil den Du gepostet hast nicht das mit den verschiedenen Tabellen..

Office: Combobox

Combobox

Combobox

Combobox

Combobox - Similar Threads - Combobox

Combobox soll zur nächsten Txtbox wechseln zum befüllen

Combobox einbinden

Dynamische Combobox mit zwei Bedingungen

Auswahl über Combobox dann Werte kopieren

Textbox aus Combobox nach Änderung befüllen

Combobox immer wenigere Daten anzeigen

wert aus ComboBox prüfen dann hinzufügen