textdatei erstellen

Sub SpalteC_AlsTXT()
Dim strPfad As String
Dim lnghelp As Long, lngArrCounter As Long
Dim arrOutput() As String
strPfad = ActiveWorkbook.Path & "/" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt"
lngArrCounter = 0
For lnghelp = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row 'zeile 1
If ActiveSheet.Cells(lnghelp, 3) <> "" Then
ReDim Preserve arrOutput(lngArrCounter)
arrOutput(lngArrCounter) = Cells(lnghelp, 3)
lngArrCounter = lngArrCounter + 1
End If
Next lnghelp
Open strPfad For Binary As #1
Put #1, , Join(arrOutput, "") 'weggelassen ","
Close #1
End Sub