Währungsformat mit VBA ändern
03.02.2014 14:14:48
Max
ich hab mal wieder ein Problem mit VBA und hoffe ihr könnt mir helfen.
Folgendes: Ich habe eine Excelmappe mit mehreren Tabellenblättern, auf welchen Geldbeträge vorkommen. Auf dem Tabellenblatt "Eingabe" hab ich eine Pulldownliste erstellt, in welcher die User verschiedene Währungen auswählen können. Nach der Auswahl wird mit Worksheet_Change ein Makro ausgelöst, das in der gesamten Mappe das gewünschte Währungsformat einstellt. Soweit funktioniert das auch alles, nur machte mich heute ein Kollege darauf aufmerksam, dass bei Eingabe von Nachkommastellen unsinniger Weise 2 Nullen angehängt werden.
Bsp. statt 45,50 -- 45,500
statt 45,55 -- 45,5500
und statt 45,56 -- 45,55500 usw.
Es wird also nicht gerundet und die 2 Nullen von der Formatvorlage einfach angehängt. Die Formate selber sehen wie folgt aus: #.###,00 [$] (nur eben mit verschiedenen Währungssymbolen).
Hat irgendjemand eine Idee?
MfG Max