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\" & ActiveWorkbook.Name & Cells(24, 6).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
Allerdings klappt es so noch nicht, da ich nun eine Fehlermeldung nach der anderen bekomme...
Könntest du dir das bitte nochmals kurz ansehen?
Vielen Dank schon jetzt für deine Infos und deinen Support!
LG