Danke. Das konnte ich heute sehr gut gebrauchen :-) -- Regards/Gruss Sascha Schneppmueller (Schneppi)
2006/3/6 Stefan Mettenbrink <[email protected]> > 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. >
