kann mir jemand helfen, ein Arbeitsblatt ab Zeile 3 mit 59 Spalten in eine Textdatei zu exportieren?
Bedingung: Feldtrenner soll | (Alt gr & <) sein.
Gruß Peter
Sub TextSpeichern()
Dim Dateinummer%, lsZ%, s%, z%, TMP$
Dateinummer = FreeFile
lsZ = Cells(1, Columns.Count).End(xlToLeft).Column
Open "C:\Daten\test.txt" For Output As #Dateinummer
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For s = 1 To lsZ
TMP = TMP & CStr(Cells(z, s).Text) & "|"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
End Sub
Gruß
Heinz
Sub TextSpeichern()
Dim Dateinummer%, lsZ%, s%, z%, TMP$
Dateinummer = FreeFile
lsZ = Cells(1, Columns.Count).End(xlToLeft).Column
Open "C:\Daten\test.txt" For Output As #Dateinummer
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For s = 1 To lsZ
TMP = TMP & CStr(Cells(z, s).Text) & "|"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub
Gruß
Heinz