VBA Punkt druch Komma ersetzen
24.08.2017 16:12:57
Napp
ich habe ein Problem, dass ich auch nach stunden langem recherchieren nicht gelöst bekomme.
Ich habe ein Messdaten File (*.CSV) welches ziemlich viele Messdaten enthält (ca. 40000 Zeilen und 30 Spalten)
Problem in der CSV Datei sind "." anstatt "," als Dezimal Trennzeichen. Diese will ich weg haben.
Meine Idee war die,
-Daten aus dem CSV als Text einlesen
-den "." durch ein "," zu ersetzen
-die Zellen dann wiede als Zahlen zu formatieren.
Wenn ich die oben genannten Schritte von Hand nach einander durchführe funktioniert das auch.
Ledier funktioniert es nicht mit VBA an der Stelle "." durch "," erstzen.
Der VBA Code denn ich an der Stelle nutze :
Columns(1).Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows
Wie ich raus gefunden habe liegt es wohl an dem was hier beschrieben ist:
https://support.microsoft.com/de-at/help/510240
Damit bekomme das Problem auch gelößt leider schafft es mir 2 neue:
1. es dauert bei der Datenmenge ewig mit der For Each Schleife, viel länger als händisch über "Suchen und ersetzen"
2. danach habe ich überall das "'" (Hochkomma) drin stehen und bekomme es nicht mehr so einfach in eine Zahl formatiert. Mal davon abgesehen, dass es dann wieder ewig dauern würde.
Vielleicht hat ja hier jmd. eine Idee wie man das Problem eleganter lösen könnte.
Vielen Dank im voraus!