Exportieren CSV-Datei + Weiterbearbeitung

[Jochen0912]

Hallo, wäre super wenn mir jemand bei meinem Problem helfen könnte
Folgendes, ich exportiere eine csv-Datei. Diese Datei wird mir dann wie folgt angezeigt:

        A

1   rotes Auto

2   blaues Auto

3   gelbes Auto

4   grünes Auto

5   schwarzes Auto

Jetzt möchte ich diese Wörter in eine Textdatei kopieren und hätte gern, dass die Wörter fortlaufend in einer Zeile sind und nach jeder Zeile der Excel-Datei nach dem Wort ein Komme und Leerzeichen kommt.
Also so:

rotes Auto, blaues Auto, gelbes Auto, grünes Auto, schwarzes Auto,

Gibt es da eine Möglichkeit, dass das automatisch funktioniert? da es sich um mehrere 1000 Wörter handelt wäre es sehr umständlich die Kommas und Leerzeichen von Hand einzugeben.

Ich hoffe ich habe es einigermaßen verständlich erklärt

Wäre echt super wenn mir da jemand weiterhelfen könnte

[Fennek]

Hallo,

versuche diesen Code:
(erst den Verweis setzen)

Code:

Sub Fen()
'Verweis auf MS Scripting Runtime
Dim FSO As New FileSystemObject
Dim iOut As TextStream
lr = Cells(Rows.Count, "A").End(xlUp).Row
Tx = Join(Application.Transpose(Range("A1:A" & lr)), ", ")
Set iOut = FSO.CreateTextFile("c:\temp\Jochen0912.txt", True, True)
iOut.Write Tx
iOut.Close
End Sub

Eine Frage an die Experten: welche Grenzen für die Größe des Text-Strings gibt es?

mfg

[Jochen0912]

Vielen Dank für deine schnelle Antwort!!

Ich verstehe jedoch leider nur Bahnhof .

[WillWissen]

Hi Jochen,

lies mal diesen Beitrag. Ich glaube, der dürfte dir weiterhelfen.