Array + 1 fixer Wert
29.02.2016 22:07:38
Ramon
ich komme bei folgendem Problem nicht weiter und hoffe auf Hilfe:
Ich habe in Spalte A eine Kundenliste ab Zeile 3, Name: "Customers"
In Zeile 2 steht die Spaltenüberschrift Customers (hier liegt
ein Autofilter drauf) und in Zeile 1 steht "All Customers"
Die Kundenliste ab Zeile 3 übergebe ich an ein Array. Diese Liste wird dann
in einer Combobox ausgegeben. Wähle ich dort etwas aus, wird der Autofilter
entsprechend gesetzt.
Nun möchte ich zusätzlich in der Arrayliste (bzw. in der Combobox) den Wert aus
der ersten Zelle (All Customers) haben. Wählt man diesen, so soll der Autofilter
zurückgesetzt werden. Funktioniert soweit alles.
Aber: In meiner Auswahlliste erscheint immer auch der Wert aus Zelle2, also
die Überschrift.
Mein Code sieht hierzu wie folgt aus. Was mache ich bloß falsch?
Sub fuelle_cbKunde()
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("System.Collections.ArrayList")
vntArray = Range("a1", "customer").Value2
objSortedList.Capacity = UBound(vntArray)
For lngIndex = 1 To UBound(vntArray)
If Not IsEmpty(vntArray(lngIndex, 1)) Then _
objSortedList(vntArray(lngIndex, 1)) = ""
Next
objArrayList.AddRange objSortedList.Keys
cbKunde.List = objArrayList.toarray
Set objSortedList = Nothing
Set objArrayList = Nothing
End
Sub