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
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