nach längerer Abstinenz hätte ich mal ein Anliegen.
Und zwar versuche ich aktuell eine CB in einer Userform mit Werten zu füllen.
1. Die Werte sind in einem Tabellenblatt auf 2 Spalten verteilt
(1. Spalte Numerische Beschreibung ; 2. Spalte Alphanumerische Beschreibung )
2. Sie sind im Sinne einer Datenbank immer eineindeutig
Private Sub UserForm_Initialize()
Dim oDic As Object, meAr
Dim A As Long
Set oDic = CreateObject("Scripting.Dictionary")
With Sheets("Master")
meAr = Range("D2", .Cells(.Rows.Count, 5).End(xlUp))
End With
For A = 1 To UBound(meAr)
oDic(meAr(A, 1)) = 0
Next
HFA_KORR.CB_HFA.List = oDic.keys
End Sub
Folgender Code liest mir ja schonmal die 1. Spalte ein und korriegiert sich mir um die Dubletten. WAs fehlt, ist die 2. Spalte (Ich glaub hier liegt die Ursache im Dict)
Was ich auch noch nicht hab umsetzten können ist eine Sortierung innerhalb des Dicts
Vielleicht weiss ja jemand Rat.
Anbei zur unterstützung mal eine Mustermappe
https://www.herber.de/bbs/user/91756.xlsm
Vielen Dank für eure Unterstützung