Das hatte ich befürchtet... wird das nicht zu langsam bei mehreren tausend
Einträgen?
Gruß
Stefan
> Stefan Sicurella wrote:
>
>> aber ich hab grad gar keine Idee, wie das aussehen müsste??
>> Kamm mir da jemand mal auf die Sprünge helfen bitte?
>
> Das habe ich bei mir in CompareRows:
>
> 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
>
>
> Ich hoffe, ich habe nichts wesentliches weggelassen.
> Jedenfalls musst Du für jedes zu berücksichtigende Zeichen eine
> entsprechende Ersetzung durchführen. Oder kennt jemand eine bessere
> Lösung?
>
> MfG, Metti.
>
>
