|
Hallo, ich habe die unten aufgegührte Makro, von einem Helfer im Forum erhalten.
Nun werden manche Werte, die in den Texten tatsächlich Kommawerte sind verändert in die Excel überneommen.
Zum Beispiel: in der txt Datei steht der Wert: 1369,523 In der Excel ausgegeben als 1.369.523
Werte mit 2 Stellen hinter dem Komma werden nicht verändert, da sie automatisch als text formatiert werden.
Das verfälscht leider die Ergebnisse
Wie kann ich dieses Makro so verändern, dass der gesamte Inhalt der Textdateien in der Excel als "Text" formatiert werden ?
Kann mir da jemand helfen ?
Sub Michael8000()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
sPath = "D:\Users\VeyselUenal\Desktop\abc1\"
sFile = Dir(sPath & "*.txt")
Do While Len(sFile)
With Sheets.Add(, , , sPath & sFile)
ls = Sheets("Daten").Cells(1, Columns.Count).End(xlToLeft).Column + 1
.Columns(1).Copy Sheets("Daten").Cells(1, ls)
.Delete
End With
sFile = Dir
Loop
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
|