Sub
Saving()
Dim
Zelle
As
Range, strSave
As
String
, Bereich
As
Range, DateiName
As
String
Set
Bereich = [A23:A38]
DateiName =
"C:\Test\" & ActiveWorkbook.Name & Cells(24, 6).Value & "
.txt"
Open DateiName
For
Output
As
#1
For
Each
Zelle
In
Bereich
strSave = strSave & Zelle & Chr(9)
Next
Print #1, Left(strSave, Len(strSave) - 1)
Close #1
End
Sub