Hier wird die Datei gelöscht und eine Neue mit dem selben Namen erstellt.
Der markierte Bereich wird in die Datei geschrieben mit Semikolon als Trennzeichen
Das Makro mit dem Button verbinden.
Sub
TextDateiErstellen()
Dim
Inhalt
Dim
sDateiname as
String
With
ActiveSheet.Selection
For
r = 1
To
.Rows.Count
For
c = 1
To
.Columns.Count
Inhalt = Inhalt & Cells(r, c) &
";"
Next
Inhalt = Inhalt & vbCrLf
Next
sDateiname =
"d:\test.txt"
kill sDateiname
Open sDateiname
For
Output
As
#1
Print #1, Inhalt
Close #1
End
With
End
Sub