Am 27.02.2006 um 15:40 schrieb Stefan Mettenbrink:
Gibt es eine Möglichkeit, Listboxen so sortieren zu lassen, das ä
bei a, ö bei o und ü bei u einsortiert wird?
MfG, Metti.
Schreib folgende zeilen in die Methode CompareRows der Listbox:
dim name1, name2 as string
name1=Liste.cell(row1,1)
name1=name1.ReplaceAll("ä","ae")
name1=name1.ReplaceAll("ö","oe")
name1=name1.ReplaceAll("ü","ue")
name1=name1.ReplaceAll("ß","ss")
name2=Liste.cell(row2,1)
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
dabei steht hier der zu sortierende Name in Spalte 1 der Listbox.
Gruß von Jürgen
|