Thema Datum  Von Nutzer Rating
Antwort
Rot Folgende Makro: Zellen als Text formatiert einlesen
11.08.2016 15:59:12 Michael
NotSolved
12.08.2016 09:38:47 Gast2201
Solved
12.08.2016 12:48:01 Michael
NotSolved

Ansicht des Beitrags:
Von:
Michael
Datum:
11.08.2016 15:59:12
Views:
970
Rating: Antwort:
  Ja
Thema:
Folgende Makro: Zellen als Text formatiert einlesen

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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Folgende Makro: Zellen als Text formatiert einlesen
11.08.2016 15:59:12 Michael
NotSolved
12.08.2016 09:38:47 Gast2201
Solved
12.08.2016 12:48:01 Michael
NotSolved