Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV-Dateien

Forumthread: CSV-Dateien

CSV-Dateien
thomas
Hi,
ich möchte per Makro aus einer Excel-Datei csv-Dateien erzeugen. Klappt auch wunderbar. Ich hätte Kommas als Trennzeichen erwartet, habe jedoch Smikolon in der csv-Datei. Gibt es irgendeine Einstellung
mit dem ich das beeinflussen kann?
Und noch eine Frage in diesem Zusammenhang. Kann ich als Texterkennungszeichen Anführungszeichen mitgeben oder geht dies nicht?
Schon mal vorab vielen Dank
Gruß aus dem sonnigen aber ziemlich kalten Rheinböllen oder helau und alaf
Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
als Letztes
03.03.2011 15:50:44
Holger,
Anscheinend benutzt du diese Excel eigene Funktion.
Ich mache das so. Als Parameter übergibst du den Dateinamen und den Range, den du in csv exportieren möchtest. Trennzeichen kannst du festlegen (bei mir eine Tilde) und wenn das Trennzeichen im String vorkommt, erfolgt eine Encapsulierung. Damit bist du auf der sicheren Seite.
Anzeige
Und hier der Code :-)
03.03.2011 15:51:05
Holger, 

Sub CreateCSV(strDateiname As String, Bereich As Object)
Dim Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strTrennzeichen As String
strTrennzeichen = "~"
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then
strTemp = Left(strTemp, Len(strTemp) - 1)
End If
Print #1, strTemp
strTemp = ""
Next
Close #1
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige