Ausserdem scheint mir das zweite If-statement etwas komisch, also statt dessen:
Hochkommata = Replace(Hochkommata , Right(Hochkommata , 3), "'" & Right(Hochkommata , 3))
Den Fehler habe ich übersehen
Vielleicht bringt's ja was.
Leider nicht. Aber es hat irgendwas mit diesen Nullen zu tun denn ich habe die Funktion mit einigen Zahlen gefüttert und folgendes kam dabei raus
1234500 = 1'234'500
1234000 = 1'234'000
1230000 = 1'23'0000
1200000 = 1'2'00000
Gibt es denn keine Funktion dafür um die Zahlen in Zahlenblöcke aufzuteilen ?
Gruss & Danke
Hamza