Komma anstatt Punkt
13.12.2008 16:42:57
Harald
ich bekomme von einer Anwendung Zahlen die aber anstelle des bei uns üblichen Kommas einen Punkt haben. Ich habe mit folgendem Code versucht den Punkt mit einem Komma auszutauschen.
'Punkt zu Komma umwandeln
spalte = 4
ende = Cells(Rows.Count, spalte).End(xlUp).Row
For i = 2 To ende
s = Cells(i, spalte).Value
If InStr(s, ".") > 0 Then
Replace s, ".", ","
Cells(i, spalte).Value = s
Cells(i, spalte).NumberFormat = "0.0"
End If
Next
Columns("A:AE").EntireColumn.AutoFit
Es läuft auch soweit, aber die Abarbeitung dauert bei ca. 20000 Zeilen extrem lange. Gibt es eine Möglichkeit diesen Code zu optimieren und damit auch ein schnelleres Ergebnis zu bekommen?
Die Datei von der die Daten kommen hat die Endung ".dbf", nur zur Info.
mfg
Harald