Chr$(13) Problem
18.09.2002 17:21:12
Davidx
Jeder Zellinhalt soll in der Textdatei in einer neuen Zeile stehen, d.h. ein "ENTER" muss eingefügt werden.
Ich habe folgenden Code probiert, jedoch wird alles hintereinander weg in der Datei geschrieben, getrennt durch ein ausgefülltes Quadrat?!
For Each zelle In Selection
Liste = Liste & zelle.Value & Chr$(13)
Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\1.txt", True)
a.WriteLine (Liste)
a.Close