Ich habe einen VBA-Code (besten Dank an Oberschlumpf :), mit dem ich die Werte aus einer Spalte extrahieren kann (wobei die Doppelten ignoriert werden) und in ein ComboBox einfügt.
Wie kann ich nun die Einträge sortieren bevor sie ins ComboBox eingefügt werden?
Hier der Code:
Sub KategorieFilter()
Dim wks As Worksheet
Dim liZeile As Integer
Dim liInhalt As Integer, liDoppelt As Integer, lboDoppelt As Boolean
Dim liEintrag As Integer
Set wks = Worksheets("Preisliste")
liZeile = 11
Do Until wks.Range("A" & liZeile).Value = ""
liZeile = liZeile + 1
Loop
ReDim lstrInhalt(liZeile - 11) As String
liZeile = 11
Do Until wks.Range("A" & liZeile).Value = ""
For liDoppelt = 0 To liInhalt
If lstrInhalt(liDoppelt) = wks.Range("A" & liZeile).Value Then
lboDoppelt = True
Exit For
End If
Next
If lboDoppelt = False Then
lstrInhalt(liInhalt) = wks.Range("A" & liZeile).Value
liInhalt = liInhalt + 1
Else
lboDoppelt = False
End If
liZeile = liZeile + 1
Loop
Sheets("Preisliste").Kategorie.Clear
For liEintrag = 0 To liInhalt - 1
Sheets("Preisliste").Kategorie.AddItem lstrInhalt(liEintrag)
Next
End Sub
(siehe auch Beispiel-Mappe von Oberschlumpf)
Besten Dank im Voraus
Gruss Reto E.