Decimaltrenner bei export files
04.07.2016 13:17:22
Sven
txt-file klappt mit diesem code ganz gut, Jedoch hätte ich gerne alle Zahlen mit Punkt als decimaltrenner wie auch das sheet ist.
Sub ZeileninTXTschreiben2()
Dim intFF As Integer
Dim i As Integer, j As Integer
Dim iZeilen As Integer
Dim strDatei As String
Dim strTemp As String
strDatei = "C:\Test.txt" 'Dateiname
intFF = FreeFile
iZeilen = Worksheets("wlm").Cells(Rows.Count, 1).End(xlUp).Row
Open strDatei For Output As #intFF
For i = 1 To iZeilen
strTemp = Empty
For j = 1 To 14
strTemp = strTemp & Cells(i, j)
' If j Muss ich hier die windowseinstellungen ändern um Punkt als Ergebnis zu erhalten?
vg
Anzeige