Hallo, ich habe ne ComboBox mit ein paar Items drin. Diese will ich alphabtisch sortieren, doch da ich noch ganz viele nicht beschriebene Items drin hab sind die Wörter alle ganz unten in der Box.. weiß jemand wie ich das lösen könnte ?
Hat es schon mal damit probiert hatte aber nicht geklappt...
Dim hiva AsString
For qwe = 4 To 100
If MItarbeiter(qwe) = ""Then
For j = 4 To 100
hiva = cbMitarbeiter.Items(j)
cbMitarbeiter.Items(j) = cbMitarbeiter.Items(j + 1)
cbMitarbeiter.Items(j + 1) = hiva
Next Else
If Asc(cbMitarbeiter.Items(qwe)) = 13 Then
For j = 4 To 100
hiva = cbMitarbeiter.Items(j)
cbMitarbeiter.Items(j) = cbMitarbeiter.Items(j + 1)
cbMitarbeiter.Items(j + 1) = hiva
Next EndIf
EndIf
Next

Gruß MrSchabernack

das mit der Sorted Eigenschaft hatte ich schon aus probiert, sieht blos nicht so schön aus wenn man erst runterscrollen muss um sein Item aus zuwählen...