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