Re: Sortierung Listbox mit Umlauten

[Stefan Mettenbrink]

Maximilian Tyrtania wrote:

Function AsciiSort(Extends s As String) As String
If s <> "" Then
s = s.Lowercase
s = ReplaceAll(s, "ä", "a")
s = ReplaceAll(s, "å", "a")

.
.
.
Probier mal stattdessen:

s=ConvertEncoding(s,Encodings.ASCII)

Prima, dann reduziert sich der Code in CompareRows auf:

     result =
strcomp(ConvertEncoding(me.cell(row1,column),Encodings.ASCII),
ConvertEncoding(me.cell(row2,column),Encodings.ASCII), 0)

Danke!

Ich habe es noch nicht aussprobiert, wird ß zu ss gewandelt?

MfG, Metti.