Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text- oder CSV-Datei erzeugen

Text- oder CSV-Datei erzeugen
thomas
Hallo,
mit Excel kann ich eine csv-Datei erzeugen. In dieser CSV-Datei sind alle Werte durch ein Komma getrennt.
Gibt es eine Möglichkeit bei allen Werten (Zelleinträgen) ein Anführungszeichen davor und danach einzufügen? in der CSV- oder einer Textdatei.
Mir fällt nichts anderes ein als ein Makro für eine solche Aufgabenstellung.
Hat einer eine andere, einfacherer Idee?
Gruß
Thomas
au man ist hier warm :-)))

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Text- oder CSV-Datei erzeugen
02.07.2009 15:50:09
Rudi
Hallo,
so?

Sub export()
Dim sText As String, vntTmp, i As Long, j As Long
vntTmp = Range("A1").CurrentRegion
For i = 1 To UBound(vntTmp)
For j = 1 To UBound(vntTmp, 2)
sText = sText & Chr(34) & vntTmp(i, j) & Chr(34)
Next
sText = sText & vbLf
Next
Open "c:\test\testx.txt" For Output As #1
Print #1, sText
Close 1
End Sub


Gruß
Rudi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige