txt-file schreiben Zelle für zelle
04.07.2016 12:05:22
Sven
ich werke gerade an einer weiteren Txt-export methode:
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 = 10 'Letzte Zeile
Open strDatei For Output As #intFF
For i = 1 To iZeilen
strTemp = Empty
For j = 1 To 10
strTemp = strTemp & Cells(iZeilen, j)
'If j Jedoch schreibt er immer die gleiche Zeile. Was hab ich übersehen?
vg
Anzeige