ASCII Wert durch Komma trennen

Akuell importiere ich in eine Excel-Mappe Daten aus einer Datei im ASCII-Format,um diese zu _ verarbeiten. Dabei handelt es sich um Text mit sieben Zeichen pro Zelle, der eigentlich eine negative/ _ positive Zahl mit sechs Nachkommastellen ist. Bsp. 3.449.707 = 3,449707 oder -0.613566 = -0,613566 Excel interpretiert den Punkt lediglich bei Zahlen zwischen - 1 und + 1 als Trennzeichen. Wert > _ //

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KommaPunkt() Dim Spalte As Integer Spalte = 1 'Deine Werte stehen in Spalte A With ActiveSheet.Columns(Spalte) .SpecialCells(xlCellTypeConstants, 2).Replace What:=".", _ Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False .TextToColumns DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True End With End Sub

Hi
du musst schon beim Öffnen der Datei ansetzen.
wie öffnest du die Datei?
wie liegen die Daten in der ausgangsdatei vor?
bedenke auch beim Ersetzen:
wenn du in einem als Text gespeicherte Zahl einen Dezimal-Punkt hast und dann diese Zahl wandeln willst indem du den Dezimalpunkt durch ein Komma ersetzt, dann musst du, wenn du das per VBA machst, den Punkt durch einen Punkt ersetzen.
Kling wiedersinnig, ist aber so.
Das Problem ist, dass Excel und VBA englisch miteinader reden.
Ein Ersetzen ist wie eine Neueingabe von Hand, bei der Excel erneut prüft, ob die Eingabe eine Zahl, ein Datum, eine Formel oder ein Text ist.
Wenn jedoch diese Eingabe von VBA kommt, dann erwartet Excel die Zahlen im englischen Zahlenformat, dh mit dem Punkt als Dezimalzeichen.
Kommt die Eingabe jedoch von dir, dann erwartet Excel die Zahl im eingestellen Läderformat, dh in Deutschland mit dem Komma als Dezimalzeichen.
Das ist ein bisschen verwirrend, daher sollte man schon beim öffnen der Datei dafür sorgen, dass die Daten richtig interpretiert werden.
Gruß Daniel

Hallo
Diese Datei wird geöffnet. (Aufbau so, wie beschrieben)

https://www.herber.de/bbs/user/98595.txt

Sub KommaPunkt()
Dim Datei As String
Datei = "C:\Temp\Test.txt"
Workbooks.OpenText FileName:=Datei, Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
With ActiveSheet.Columns(1)
.SpecialCells(xlCellTypeConstants, 2).Replace What:=".", _
Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.TextToColumns DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
.NumberFormat = "General"
End With
End Sub

Bei mit klappt das ...
Gruß UweD

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ASCII Wert durch Komma trennen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread