Thema: Combobox alphabetisch füllen

Hallo liebe Profis,
ich habe mal wieder ein VBA Problem. Anbei meine Beispieldatei.

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

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

Vielen lieben Dank Case. Funktioniert super.

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.

Hallo liebe Profis,
ich habe mal wieder ein VBA Problem. Anbei meine Beispieldatei.

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

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

Vielen lieben Dank Case. Funktioniert super.

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.