Tausender-Trennzeichen
15.08.2007 14:01:56
Stephan
Ich suche Unterstützung bei folgendem (eigentlich einfachen?!) Problem.
Ich muss in Strings, die aus einer Zelle ausgelesen werden, per VBA die "Tausender-Trennzeichen" einfügen.
Also aus:
123456 zu 123.456
3456 zu 3.455
123 zu 123
usw.
Mit der WorksheetFunction.Text habe ich es versucht.
Dim strTemp(7) as String
strTemp(1) = Cells(1, 7).Value
strTemp(1) = WorksheetFunction.Text(strTemp(1), "#.##0")
Das liefert falsche Ergebnisse! Vielleicht, weil die englische Funktion wohl den Punkt als "," für den Dezimalbruch ansieht ?!?
Da ich einen ganzen Haufen solcher Umwandlungen für einen HMTL-Export machen muss, bräuchte ich - wenn möglich - eine einfache und kurze Möglichkeit.
Eine Routine (evtl. benutzerdefinierte Function), die den String zerlegt, ginge notfalls auch, ist aber wegen der Häufigkeit nicht erste Wahl.
Gruß und vielen Dank im voraus
Stephan