Hallo Horsti,
vielen Dank erstmal für die schnelle Antwort!!!
Ich habe deine Anpassung übernommen (s.u.). Allerdings weiß ich nicht genau, mit welcher Anweisung ich dann den Speicherpfad aufrufe, da die Anweisung Const ja durch die Änderung nicht mehr zieht. Kannst du mir an der Stelle vielleicht noch einen kleinen Hinweis geben (da wo die vielen ??? stehen)? Open Dateiname wird ja dann wohl auch nicht mehr funktionieren, da DateiName ja keine Const mehr ist...
Sub Saving()
Dim Zelle As Range, strSave As String, lngRow As Long, Bereich As Range, DateiName As String
Set Bereich = [A23:A38] 'Hier kannst du den Bereich ändern
???? 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
Vielen Dank schonmal im Voraus!!
LG
Tibo
|