Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Chr$(13) Problem

Chr$(13) Problem
18.09.2002 17:21:12
Davidx
Ich möchte gerne den selektierten Bereich im Tabellenblatt in eine Textdatei geschrieben bekommen.
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


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Chr$(13) Problem
18.09.2002 20:55:03
Hans-Jörg
ein kleines beispiel:

Re: Chr$(13) Problem
18.09.2002 22:16:06
Davidx
Danke Hans-Jörg!
Habe mal deinen Code auf meine Bedürfnisse angepasst, funktioniert super, nochmals Danke.

Sub txt_schreiben()

Open "D:\1.txt" For Output As #1
For Each zelle In Selection
TMP = TMP & zelle.Value & ";"
TMP = Left(TMP, Len(TMP) - 1)
Print #1, TMP
TMP = ""
Next
Close 1

End Sub

Re: Chr$(13) Problem
20.09.2002 11:27:25
Hans W. Hofmann
Interessanter Code ;-)

TMP = TMP & zelle.Value & ";"
'Montiere einen Strichpunkt an Textende
TMP = Left(TMP, Len(TMP) - 1)
'Schneide letztes Zeichen wieder ab

Das könnte man sich einfacher machen, oder?

Gruß HW

Anzeige
Re: Hans W. Hofmann
20.09.2002 15:51:40
Davidx
Hans W. Hofmann hat Recht!
Bin doch zu blöd! So geht natürlich auch!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige