Zahlen mit 5 Nachkommastellen in Makro
13.06.2005 11:36:08
Daniel
letzte Woche hat mir Udo mit einem Makro geholfen, in diesem Thread:
https://www.herber.de/forum/messages/622447.html
Ich möchte Zellenbereiche in eine .txt Datei kopieren.
Das funktioniert alles hervorragend.
Allerdings hätte ich nun gerne zusätzlich, dass die Zahlen der Spalten D-G IMMER 5 Nachkommastellen haben sollen, z.B. 45.34000.
Kann das bitte jemand in dem Makro noch anpassen?
Sub TextExport()
Dim i As Long, tmp As String
Open Range("B5") & ".txt" For Output As #1
For i = 5 To Range("G65536").End(xlUp).Row
tmp = ""
tmp = tmp & WorksheetFunction.Text(Cells(i, 3), "D/M/YYYY") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 4), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 5), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 6), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 7), ",", ".")
Print #1, tmp
Next i
Print #1, Chr(13)
Close 1
End Sub
Beste Grüße,
Daniel