Komma zu Punk
18.06.2007 09:00:33
Thomas
folgender Sachverhalt:
Ich habe teils fünf Tabellenblätter mit jeweils mehreren vollbeschriebenen (65536 Zellen) Spalten. Die Werte davon müssen einmal zwei Kommastellig dargestellt werden und die Kommatrennung muss in Punkttrennung erfolgen. Dazu benutz ich derzeit diesen Code:
For Each zelle in Range("A2").CurrentRegion.Cells
With zelle
.NumberFormat = "@"
.Value = Replace(Format(.Value, "0.00"), ",", ".")
End With
Next zelle
das funktioniert auch einwandfrei, allerdings bei der fülle von Daten ist der Ablauf sehr zeitintensiv. Gibt es dazu eine schnelle Möglichkeit die ablaufen zu lassen ?
Vielen Dank
Grüße
Thomas