Hi ich habe ein kleines Problem und find den Fehler einfach nicht...
Ich habe eine Combo Box die sich aus einer anderen Tabelle füllen soll, dabei soll sie sortiert sein und keine Duplikate aufweisen... aber irgendwie will bloss diese eine nicht alle anderen funktionieren. Der ausgelesenen Spalte befinden sich nur Zahlen Werte. Liegt es vll daran dass ich irgendwas falsch deklariert hab oder so???
Anbei mal mein Code.... vll kann mir ja schnell jemand die Lösung des Problems sagen....und mich von meiner Dummheit befreien.... DANKE!!!!
Private Sub ComboFuellen2() 'Sortiert, keine Duplikate
Dim SL As Object
Dim i As Integer
Dim arr As Variant
Set SL = CreateObject("System.Collections.sortedlist")
With Worksheets("FZG")
arr = .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row)
End With
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then _
SL(arr(i, 1)) = "" ' Da taucht der Fehler auf!!!!
Next
For i = 0 To SL.Count - 1
ComboBox2.AddItem SL.GetKey(i)
Next
End Sub |