Combobox Probleme mit sort. und doppelten Werten

Hallo VBA experten,
ich frage hier nach weil ich einfach nichts finde das so klappt wie ich es will :(
Ich habe eine ganz einfache Form erstellt auf dieser habe ich eine Combobox.
Und diese will ich nur mit werten aus einer Spalte befüllen.
Spalte J ab Zeile 5 bis zum letzten eintrag.Dazwischen können auch leerzellen sein diese natürlich nicht.
Ich schaffe es einfach nicht die daten so einzufügen das Sie sortiert sind.
Obwohl ich schon mehere gefunden habe die Sortieren.
Aber keine Anzeige ist dann so wie die Werte angezeigt werden wie in Excel mit dem Autofilter.
Wie bekomme ich die Werte so eingetragen ? Was auch noch wichtig ist das keine Doppelten Werte in die userform eingetragen werden.
Könnt Ihr mir bitte helfen ?
Vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
kann man z. Bsp. so machen.
Erst doppelte raus danach mit Quicksort sortieren.
kommt als Code in UserForm1

Option Explicit 
 
Private Sub UserForm_Initialize() 
Dim meAr() 
With Tabelle1 
     meAr = .Range("J5", .Cells(.Rows.Count, 10).End(xlUp)).Value2 
End With 
 
Call DoppelteRaus(meAr) 
Call QuickSort(meAr, Lbound(meAr), Ubound(meAr)) 
ComboBox1.List = meAr 
End Sub

kommt als Code in Modul1

Option Explicit 
 
Sub DoppelteRaus(ByRef meAr()) 
Dim oDic As Object 
Dim A As Long 
Set oDic = CreateObject("Scripting.Dictionary") 
 
For A = 1 To Ubound(meAr) 
 If meAr(A, 1) <> "" Then 
    oDic(meAr(A, 1)) = 0 
 End If 
Next A 
 
meAr = oDic.keys 
End Sub 
 
Sub QuickSort(ByRef sArray As Variant, ByVal MinElem As Long, MaxElem As Long) 
Dim Mitte As Long 
Dim vDummy As Variant 
Dim i As Long, j As Long 
 
    If MinElem > MaxElem Then 
        ' 
        ' Rekursion beenden 
        ' 
        Exit Sub 
    End If 
 
    Mitte = (MinElem + MaxElem) \ 2 
 
    i = MinElem 
    j = MaxElem 
    Do 
 
        Do While sArray(i) < sArray(Mitte) 
            i = i + 1 
        Loop 
 
        Do While sArray(j) > sArray(Mitte) 
            j = j - 1 
        Loop 
  
        If i <= j Then 
 
            vDummy = sArray(j) 
            sArray(j) = sArray(i) 
            sArray(i) = vDummy 
 
            i = i + 1 
            j = j - 1 
        End If 
  
    Loop Until i > j 
    ' 
    ' Rekursiver Aufruf mit den Teil-Arrays 
    ' 
    QuickSort sArray, MinElem, j 
    QuickSort sArray, i, MaxElem 
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Combobox Probleme mit sort. und doppelten Werten

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox Probleme mit sort. und doppelten Werten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread