Option Explicit
Sub Textdatei_erstellen()
Dim loLetzte As Long, i As Long
Dim ExportPfad As String, ExportFile As String
ExportPfad = "C:\Temp\"
Close #1
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To loLetzte
.Cells(1, 100) = .Cells(1, 100) & "," & .Cells(i, 1)
Next i
.Cells(1, 100).Value = Mid(.Cells(1, 100), 2)
End With
ExportFile = ExportPfad & "Exportdatei.txt"
Open ExportFile For Output As #1
Print #1, Worksheets("Tabelle1").Cells(1, 100)
Close #1
Worksheets("Tabelle1").Cells(1, 100).ClearContents
MsgBox "Textdatei wurde in " & ExportPfad & " erstellt"
End Sub