> De la part de Maximilian Tyrtania >> 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) Jawoll, dat funzt! Da hat es sich doch wieder mal gelohnt, sich aus dem Fenster zu lehnen und mit umständlichem Code zum Affen zu machen :) Danke! Oliver
