Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dezimaltrennzeichen

Dezimaltrennzeichen
18.02.2009 22:51:00
Horst
Hallo VBA-Freaks,
wie kann ich bei folgender VBA-Prozedur angeben, dass unabhängig von der jeweiligen Systemeinstellung die Beträge in den erstellten .txt Dateien mit einen Punkt statt einem Komma als Dezimaltrennzeichen separiert werden sollen?
'Textdateien
strSep = vbTab
strFile = strPath & "Alpha.xls"
Set objWB = Workbooks.Open(strFile)
With objWB.Sheets("Beta")
lngLastCol = .Columns("Z").Column
lngRow = Application.Match(CLng(Date), .Columns("AA"))
arrVal = .Range(.Cells(1, 1), .Cells(lngRow, lngLastCol))
strTxtFile = strPath & "train.txt"
Open strTxtFile For Output As #1
For lngN = 1 To lngRow
strTmp = ""
For lngM = 1 To lngLastCol
strTmp = strTmp & arrVal(lngN, lngM) & strSep
Next
strTmp = Left(strTmp, Len(strTmp) - Len(strSep))
Print #1, strTmp
Next
Close #1
arrVal = .Range(.Cells(lngRow + 1, 1), .Cells(lngRow + 1, lngLastCol))
strTmp = ""
For lngM = 1 To lngLastCol
strTmp = strTmp & arrVal(1, lngM) & strSep
Next
strTmp = Left(strTmp, Len(strTmp) - Len(strSep))
strTxtFile = strPath & "test.txt"
Open strTxtFile For Output As #1
Print #1, strTmp
Close #1
End With
objWB.Close False
Gruß, Horst

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dezimaltrennzeichen
18.02.2009 22:59:00
Daniel
Hi
probier mal folgende Erweiterung:
For lngM = 1 To lngLastCol
strTmp = strTmp & Replace(arrVal(1, lngM), ",", ".") & strSep
Next
Gruß, Daniel
AW: Dezimaltrennzeichen
18.02.2009 23:20:00
Horst
Hi Daniel,
funktioniert leider nicht. Ich bekomme noch immer Kommas statt Punkte bei den Beträgen in den .txt's
Es gibt doch "Application.DecimalSeparator" Wie baue ich die ein?
AW: Dezimaltrennzeichen
18.02.2009 23:26:00
Horst
weitere Vorschläge wären super ...
AW: Dezimaltrennzeichen
18.02.2009 23:43:00
Daniel
Hi
bei mir funktioniert das mit dem Replace schon.
hast du beide Schleifen deines Codes so modifiziet?
Gruß, Daniel
AW: Dezimaltrennzeichen
19.02.2009 08:53:00
Horst
Hallo!
"Replace" funktioniert zwar, nur habe ich das Problem, dass in der ersten Zeile der auszulesenden Datei ein Header steht, der erhalten bleiben sollte. Interessanterweise bekomme ich, nachdem ich alle zwei Schleifen durch Replace ersetze, in der train.txt nur noch Zeilen mit den Header (ohne Beträge). Die test.txt ist o.k.
Anzeige
AW: Dezimaltrennzeichen
22.02.2009 14:55:51
Horst
Danke, Frage geklärt. Es funktioniert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige