|
Hallo liebe Forennutzer,
ich habe folgendes Problem, welches mich schon seit Stunden beschäftigt:
Es liegt eine Excel-Datei vor, in welcher die Werte (z. B. "2,11") in Spalte "K" als Text gespeichert sind. Um die Texte in Werte umzuwandeln nutze ich folgenden Code:
With Sheets("Budget")
.Range(.Cells(2, "K"), .Cells(Rows.Count, "K").End(xlUp)).Value = .Range(.Cells(2, "K"), .Cells(Rows.Count, "K").End(xlUp)).Value
.Range(.Cells(2, "K"), .Cells(Rows.Count, "K").End(xlUp)).TextToColumns DataType:=xlFixedWidth
End With
Lasse ich den Code einmal laufen, werden die Texte korrekt in Werte umgewandelt. Das Problem kommt, wenn ich den Code nochmal laufen lassen, dann werden die Werte zum einen teilweise wieder in Texte umgewandelt (scheinbar, wenn mehr als zwei Nachkommastellen vorliegen) und das Dezimalzeichen "," (also Kommat) wird zu einem "." (also Punkt).
Leider verstehe ich nicht ganz wieso das passiert. Kann mir irgendwer helfen?
Liebe Grüße
Lisa
|