ich möchte Daten aus einer *.dat Datei importieren und in eine Exceltabelle schreiben. Die Daten werden in Excel eingefügt. Die importierten Zahlen haben den Punkt als Dezimaltrennzeichen und werden deshalb in Excel verfälscht angezeigt. Die Frage ist nun wie ich es schaffen den Punkt mit dem Komma zu ersetzten ohne das Excel vorher als Datumswert oder ähnliches interpretiert.
z.B
meine zu importierende Zahl aus der *.dat Datei lautet: 21.9
und wird nach dem Import als 40.442 angezeigt
anstatt richtigerweise 21,9
Hier mein Code:
Sub Datenimport()
Dim Importdatei$, Verzeichnis$ ', aktiver_Blattname As String
Application.ScreenUpdating = False
'aktiver_Blattname = ActiveSheet.Name
Sheets("Tabelle2").Activate
'Verzeichnis = "d:\"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Klimadaten (*.dat), *.dat")
Application.ScreenUpdating = False
Range("f1:g8760").Select
Selection.Clear
Selection.NumberFormat = "0,00"
On Error Resume Next
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Application.Substitute(Zelle.Value, ".", ",") * 1
Next Zelle
On Error GoTo 0
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.RefreshStyle = xlOverwriteCells
.TextFileTabDelimiter = True
.Refresh BackgroundQuery:=False
End With