diese lösung hatte ich von heiko s
herzlichen dank nochmal
könnte man dies jetzt ausweiten?
es wird eine textdatei erstellt von spalte c
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
könnte man das ganze jetzt auf die ganze spalten auslegen (a:?, kein string mehr auf zeile 1)
dank und gruss
mehmet
ps: komisch, die textdatei wird nicht überschrieben wenn man das makro nochmal laufen lässt