Hilfe mit einem Export Code

Sub TextSchreibenOpti1()
Dim Datei As Integer
Dim zeile As Long, von As Long, bis As Long
Dim Pfad As String, ausgabe As String
Dim a As Variant
von = 1
bis = Range("a" & Rows.Count).End(xlUp).Row - 1
a = Range("a" & von & ":i" & bis)
Pfad = ThisWorkbook.Path & "\TextSchreiben.txt"
Datei = FreeFile
Open Pfad For Output As #Datei
For zeile = von To bis
ausgabe = a(zeile, 1) & "" & a(zeile, 2) & "" & a(zeile, 3) & "" & a(zeile, 4) & "" & a( _
zeile, 5) & "" & a(zeile, 6) & "" & a(zeile, 7) & "" & a(zeile, 8) & "" & a(zeile, 9)
Print #Datei, ausgabe
Next zeile
Close #Datei
End Sub