Mein Makro:
'Ersetzen des Punktes durch Komma
HFile = FreeFile
Open TptFile For Input As #HFile
Do Until EOF(HFile)
zaehler = zaehler + 1
ReDim Preserve feld(1 To zaehler)
Line Input #HFile, Text
feld(zaehler) = Application.Substitute(Text, ".", ",")
Loop
Close #HFile
HFile = FreeFile
Open TptFile For Output As #HFile
For index = 1 To UBound(feld)
Print #HFile, feld(index)
Next
Close #HFile
Funktioniert nicht, wie es soll, der Punkt wird nicht richtig ersetzt, beim darauffolgenden Überführen in Excel wird weiterhin falsch umgewandelt.
Habe 2 Tips bekommen, von denen ich nicht weiß, wie ich sie richtig codemäßig verwerten soll.
Erster Tipp:
Val(Text) übersetzt Strings in ordentliche Fließkommazahlen
Sub Makro1()
Dim Obj As Object, Text$
Text = "7.5683000000E+01"
MsgBox Val(Text)
End Sub
Vermutlich löst sich das Problem sogar von selbst, durch automatische typ-umwandlung, wenn du Feld() als double deklarierst, und einfach Text zuweist.
Zweiter Tipp:
Probier doch mal die Funktion CDbl()! Macht aus nem String nen Double.
Kann mir jemand helfen
Gruß
Dari