Dabei soll der vorhandene Name immer nur einmal auftauchen, das funktioniert mit folgender Aufforderung und funktioniert.
Dim hsh As Object, i As Long
Const iCOL As Integer = 1 '1 = Spalte A dieses Makro fast alle Namen in Spalte A der Datenbank zu einem zusammen, damit setht der jeweilige Name immer nur einmal in der Listbox
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Datenbank")
For i = 2 To .Cells(.Rows.Count, iCOL).End(xlUp).Row
hsh(.Cells(i, iCOL).Text) = 0
Next
End With
Me.ComboBox1.List = Application.Transpose(hsh.keys)
Jetzt möchte ich aber zudem in einer weiteren Spalte den Wert "aktiv" und "inaktiv" pflegen, der beim einlesen der Combobox berücksichtigen werden soll. Heißt wenn der mehrfach vorkommende Name in Spalte "A" den Status "aktiv" aus Spalte "B" trägt dann soll er in die Combobox geladen werden, sonst nicht.
Wer kann mir das Problem lösen?