Re: richtig sortierte Listbox

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Dr. Jürgen Czischke wrote:

> Schreib folgende zeilen in die Methode CompareRows der Listbox:
Habe ich etwas abgeändert, funktioniert prima.

  dim name1, name2 as string

  name1=me.cell(row1,column)
  name1=name1.ReplaceAll("ä","ae")
  name1=name1.ReplaceAll("ö","oe")
  name1=name1.ReplaceAll("ü","ue")
  name1=name1.ReplaceAll("ß","ss")
  name2=me.cell(row2,column)
  name2=name2.ReplaceAll("ä","ae")
  name2=name2.ReplaceAll("ö","oe")
  name2=name2.ReplaceAll("ü","ue")
  name2=name2.ReplaceAll("ß","ss")

  If name1> name2 then
    result=1
  else
    result=-1
  End if
  Return True  //weist RB an, die benutzerdefinierte Routine zu
verwenden

Danke.

MfG, Metti.