Separate numbers

[Melanie]

Hi,

»...

Diese Funktion soll nach den ersten drei und nach den ersten sechs Zeichen von rechts ein Hochkommata setzen. Das ganze funktioniert eigentlich. Hier einige Beispiele von Eingaben und Ausgaben

...

Die Ergebnisse sind wirklich etwas ominoes. Aber ich wuerde zuerstmal stat RTrim  nur trim(Zahl) machen. Ausserdem scheint mir das zweite If-statement etwas komisch, also statt dessen:

--------------------------------------------------------------------
   Zahl = Trim(Zahl)

If Len(Zahl) > 3 AND Len(Zahl) =< 6 Then
 Hochkommata = Replace(Zahl, Right(Zahl, 3), "'" & Right(Zahl, 3))
End If

If Len(Zahl) > 6 Then
 Hochkommata = Replace(Zahl, Right(Zahl, 6), "'" & Right(Zahl, 6))

Hochkommata = Replace(Hochkommata , Right(Hochkommata , 3), "'" & Right(Hochkommata , 3))

End If
End Function

Vielleicht bringt's ja was.

Gruss, Melanie