Combobox alphabetisch füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Combobox alphabetisch füllen
von: Marlen
Geschrieben am: 28.10.2015 09:52:38

Hallo liebe Profis,
ich habe mal wieder ein VBA Problem. Anbei meine Beispieldatei.
https://www.herber.de/bbs/user/101088.xls
Ich habe in der Combobox3 Kundennamen stehen. Hier als Beispiel Buchstaben. Diese würde ich gern alphabetisch sortieren lassen. In der Tabelle direkt sortieren kann ich nicht lassen, da die Kunden in der Originaldatei an einer anderen Sortierung hängen.
Könnt ihr mir bitte mit dem Code weiterhelfen?
vG
Marlen

Bild

Betrifft: Bezogen auf...
von: Case
Geschrieben am: 28.10.2015 10:52:51
Hallo Marlen, :-)
... Dein Beispiel so:

Option Explicit
Private Sub UserForm_Activate()
    Call FillMeUp
End Sub
Private Sub FillMeUp()
    Dim objSortedList As Object
    Dim objArrayList As Object
    Dim vntArray As Variant
    Dim lngIndex As Long
    On Error GoTo Fin
    Set objSortedList = CreateObject("System.Collections.SortedList")
    Set objArrayList = CreateObject("System.Collections.ArrayList")
    With ThisWorkbook.Worksheets("Tabelle2")
        vntArray = .Range("D2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
    End With
    For lngIndex = 1 To UBound(vntArray)
        If vntArray(lngIndex, 1) <> "" Then
            objSortedList(vntArray(lngIndex, 1)) = ""
        End If
    Next lngIndex
    objArrayList.AddRange objSortedList.Keys
    ComboBox3.List = objArrayList.ToArray
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
    Set objSortedList = Nothing
    Set objArrayList = Nothing
End Sub
Servus
Case


Bild

Betrifft: Klasse :)
von: Marlen
Geschrieben am: 28.10.2015 12:06:13
Vielen lieben Dank Case. Funktioniert super.

Bild

Betrifft: Combobox alphabetisch füllen in Abhängigkeit
von: Marlen
Geschrieben am: 29.10.2015 10:40:13
Ich habe die Datei noch ein wenig ergänzt.
https://www.herber.de/bbs/user/101121.xls
Die beiden Comboboxen 1 und 2 füllen meine TextBox in Abhängigkeit. Jetzt soll in der Combobox 3 in Abhängigkeit die Kunden angezeigt werden. Also Kunde A und K und die noch alphabetisch sortiert. Habe das versucht in der Zuordnung von Combobox 1 und 2 zu ergänzen, bin aber kläglich gescheitert.
Könnt ihr bitte helfen? Danke.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Combobox alphabetisch füllen"