ich möchte eine Excel-Arbeitsmappe als Textdatei speichern und dabei ein besonderes Trennzeichen, z. B. Apostroph ' vorgeben. Hat einer eine Idee wie man das lösen könnte?
Vielen dank schon mal und viele Grüße aus dem sonnigen Frankfurt
Thomas
Sub Export()
Dim Z%, S%
Dim msg$, Trennzeichen$
Dim LetzteSpalte%, LetzteZeile%
Worksheets("Mappe3").Activate
LetzteSpalte = Cells.SpecialCells(xlLastCell).Column
LetzteZeile = Cells.SpecialCells(xlLastCell).Row
Trennzeichen = "'"
Open "C:\Ergebnis.txt" For Output As #1
For Z = 1 To LetzteZeile
msg = Cells(Z, 1)
For S = 2 To LetzteSpalte
msg = msg & Trennzeichen & Cells(Z, S)
Next S
Print #1, msg
Next Z
Close #1
End Sub
ungetestet.
Viel Erfolg
Yal