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.
