Office: (Office 2013) Makro-Punkt durch Komma ersetzen verfälscht Werte

Guten Tag zusammen,
ich habe eine .txt Datei mit Werten in drei Spalten, welche mir automatisch geöffnet und importiert werden sollen.
Die Zeilen dieser txt-Dateien sehen so aus:
0.190054s 0.03N -0.124mm
Von dieser Datei importiere ich in Excel die ersten beiden Spalten.
Händisch kann ich es nicht machen, da ich enorm viel Dateien habe, welche sich auch in der Länge unterscheiden, die Struktur jedoch immer dieselbe ist.
Ich zeichne also ein Makro auf welches mir in den beiden Spalten die Punkte durch ein Komma ersetzt und dann die Buchstaben "s" und "N" durch nichts ersetzt, also löscht.
Beim Aufzeichnen funktioniert auch alles, nur wenn ich danach das Makro mit einer neuen Datei laufen lassen, werden alle Werte, die größer sind als 1.00000 nicht etwa umgeändert in 1,00000, sondern in Werte wie z.B. 100.000.
So z.B.:
aus dem Wert:
1.15999 0.03
macht es:
115.999 0,03
anstatt wie es richtig sein sollte:
1,15999 0,02

Wie kann ich Excel "überzeugen", dass es mir den Punkt richtig ersetzt?

Hier noch das Makro:


Sub Makro2017()
'
' Makro2017 Makro
'

'
Workbooks.OpenText Filename:="C:\Users\murat\Desktop\datei.txt", Origin:= _
932, StartRow:=3, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 9)), TrailingMinusNumbers:=True
Columns("A:B").Select
Range("B1").Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="s", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub[TABLE="width: 160"]
<tbody>[TR]
[TD="class: xl63, width: 80, align: right"][/TD]
[TD="width: 80"][/TD]
[/TR]
</tbody>[/TABLE]

 

Moin!
Du zäumst das Pferd falsch auf.
Ich würde zuerst in der .txt ersetzen und sie dann mit den richtigen Trennzeichen öffnen und somit die Konvertierung Excel überlassen.

Ich bastel mir mal einen Code zusammen.

Gruß Ralf

 

So, wie versprochen:

<pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Sub</span> RPP()
<span style='color:#0000EE'>Dim</span> objFS <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Object</span>, objFile <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Object</span>
<span style='color:#0000EE'>Dim</span> strFile$, strContent$
strFile = <span style='color:#FF0000'>&quot;J:\datei.txt&quot;</span> <span style='color:#008000'>'### anpassen! </span>
<span style='color:#0000EE'>Set</span> objFS = CreateObject(<span style='color:#FF0000'>&quot;Scripting.FileSystemObject&quot;</span>)
<span style='color:#0000EE'>Set</span> objFile = objFS.OpenTextFile(strFile, <span style='color:#FF0080'>1</span>)
strContent = Replace(objFile.ReadAll, <span style='color:#FF0000'>&quot;s&quot;</span>, <span style='color:#FF0000'>&quot;&quot;</span>)
strContent = Replace(strContent, <span style='color:#FF0000'>&quot;N&quot;</span>, <span style='color:#FF0000'>&quot;&quot;</span>)
<span style='color:#0000EE'>Set</span> objFile = objFS.OpenTextFile(strFile, <span style='color:#FF0080'>2</span>)
objFile.Write (strContent)
objFile.Close

Workbooks.OpenText Filename:=strFile, Origin:=932, _
StartRow:=3, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, _
DecimalSeparator:=<span style='color:#FF0000'>&quot;.&quot;</span>, ThousandsSeparator:=<span style='color:#FF0000'>&quot;,&quot;</span>, _
FieldInfo:=Array(Array(<span style='color:#FF0080'>1</span>, <span style='color:#FF0080'>1</span>), Array(<span style='color:#FF0080'>2</span>, <span style='color:#FF0080'>1</span>), Array(<span style='color:#FF0080'>3</span>, <span style='color:#FF0080'>9</span>))
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span></pre>

Gruß Ralf

 

Moin,
du hast ja Excel 2013. Da kannst du sehr bequem Power Query (siehe http://www.excel-ist-sexy.de/power-query-das-add-in/) einsetzen.
Ich bin zwar ein VBA-Fan, finde diese Option hier aber interessanter.

 

Vielen Dank für Eure Antworten.
Das kannte ich garnicht. Sieht gut aus. Ich schau es mir mal genauer an.