Hallo Brezi,
ich habe mir Deinen Bubble-Sort jetzt nicht näher angesehen, hab eaber einen Vorschlag für Dich:
Nach der Sortierung und Ausselektierung (hier nur Leer) kannst Du das Ergebnis entweder direkt in eine Combobox le Eintrag "adden" (s.ausgeremmter Teil)
oder zunächst in ein Array schaffen und dieses dann an die Combobox übergeben.
Sub Test()
Dim vArr As Variant, sArr() As String, i As Integer
vArr = Worksheets("Vergabe nach VE").Range("E7:E40") 'Bereich in Array schaffen
With CreateObject("System.Collections.SortedList")
For i = 1 To UBound(vArr) 'In Collection einlesen
If vArr(i, 1) <> "" Then
If Not .contains(vArr(i, 1)) Then _
.Add vArr(i, 1), vArr(i, 1) 'Item nur einmal aufnehmen
End If
Next i
' For i = 1 To .Count 'Collection in Combobox ausgeben
' Combobox1.AddItem .GetByIndex(i - 1) 'Element übernehmen
' Next i
For i = 0 To .Count - 1
ReDim Preserve sArr(i) 'Array redimensionieren
sArr(i) = .GetByIndex(i) 'Wert in Arra
Next i
Combobox1.List = sArr 'Array in Combobox ausgeben
End With
End Sub
viele Grüße
Karl-Heinz
|