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.
