Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

csv-Datei erstellen mit Semikolon als Trennzeichen

csv-Datei erstellen mit Semikolon als Trennzeichen
Marika
Hallo zusammen,
ich muss aus Messwerten eine csv Datei erstellen, wo ein Semikolon das Spaltentrennzeichen und ein Komma als Dezimaltrennzeichen hinterlegt ist.
Das bekomme ich von Hand auch hin, indem ich Speichern Unter - Dateityp csv (MSDOS) verwende.
Ich möchte das ganze aber automatisieren und bei Verwenden von folgendem VBA-Code
ActiveWorkbook.SaveAs Filename:="H:\RPM24BQ" & strMessDatum ".csv", FileFormat:=xlCSVMSDOS, _
CreateBackup:=False
kommt immer ein Komma als Spaltentrennzeichen und ein Punkt als Dezimaltrennzeichen raus.
Ich brauch eine Lösung die unter Excel 97 + 2003 funktioniert. Hat da jemand eine Idee?
Gruß Marika

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

Betreff
Benutzer
Anzeige
AW: csv-Datei erstellen mit Semikolon als Trennzeichen
18.08.2009 11:10:12
Rudi
Hallo,
1000x gefragt. 
Public Sub prcCreateCSV()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
With ActiveWorkbook
Open _
.Path & "\" _
& Left$(.Name, Len(.Name) - 4) _
& "_" & ActiveSheet.Name _
& ".csv" _
For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
For i = 1 To UBound(vntArray, 2) - 1
strText = strText & vntArray(1, i) & strPre
Next
strText = strText & vntArray(1, UBound(vntArray, 2))
Print #intFileNumber, strText
strText = ""
Next
End With
Close #intFileNumber
End Sub

Gruß
Rudi
Anzeige
AW: csv-Datei erstellen mit Semikolon als Trennzeichen
18.08.2009 15:58:31
Marika
Hallo Rudi,
Danke für die Antwort, ich hab nur etwas gebraucht, bis ich es verstanden habe, aber jetzt funkst es
Gruß
Marita

309 Forumthreads zu ähnlichen Themen

Tabellenblatt separat speichern als csv
Herbert

Hallo,
der beigefügte Code wurde mir freundlicherweise hier bereit gestellt. Aus einer Datei wird ein Tabellenblatt in eine neue Datei im Ordner C:\temp gespeichert. Das Dateiformat der neuen Datei ist csv. Die einzelnen Werte der neuen csv-Datei werden durch Semikolon getrennt. Ich benötig...
16.10.2008 16:07:00
Thread-ID: 1016905
6 Beiträge
Anzeige
Export in csv - leider werden Formeln gespeichert
stefan

hallo zusammen,
ich habe ein excel-blatt, dass sich über formeln die werte aus anderen sheets zieht.
nun möchte ich dieses blatt als csv-datei speichern. leider übernimmt er statt der werte nur die formeln.
was kann ich da machen?
danke euch
20.01.2009 15:57:25
Thread-ID: 1041878
2 Beiträge
Export in neue CSV-Datei
Franz

Hallo zusammen,
ich möchte auf meinem Excelsheet den Zellbereich A100:C3000 in
eine neue CSV-Datei anlegen. Ich habe mal ein Codeansatz.
Hat jemand eine Idee?
Danke Gruß Franz
Sub Export_csv_datei() Dim iRow As Integer, i As Integer Dim sTxt As String, sFile As String, ze...
30.01.2009 08:40:00
Thread-ID: 1045283
8 Beiträge
Anzeige
Tabellen als Grafiken exportieren
Christian

Hallo,
ich habe eine sehr breite Excel-Tabelle und würde diese gerne in ein Word-Dokument einfügen. Damit die Werte gut lesbar sind und sich auch die Fromatierung nicht ändert, würde ich gerne die Tabelle durch mehrere untereinanderstehende Grafiken in Word einsetzen. Im Prinzip also die ge...
24.06.2009 17:32:46
Thread-ID: 1084177
2 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
CSV Export Komma als Trennzeichen
Susi

Hallo,
ich habe folgendes Problem: Wenn ich Datei speichern unter sagen, als csv-Datei habe ich als Trennzeichen Semikolon. Zeichne ich das gleiche als Makro auf und lass es ausführen, habe ich Komma als Trennzeichen. Ich brauch aber Semikolon. In der Systemsteuerung ist als Listentrennzeic...
27.10.2009 23:05:38
Thread-ID: 1112635
3 Beiträge
CSV Format, Delimiter ; (Semikolon), n. Komma
Peter

Guten Tag
Ich möchte eine Datei im CSV Format speichern.
Das klappt mit folgender Codezeile:
.SaveAs SavePath & "\" & File, FileFormat:=xlCSV
allerdings ist der Delimiter ein Komma und nicht wie gewünscht ein Semikolon.
Wie kann das geändert werden?
Danke für jed...
28.12.2009 09:23:04
Thread-ID: 1126047
3 Beiträge
Save As Methode fehlgeschlagen VBA
andreas

Hallo zusammen,
habe hier einen kleinen Code zum Speichern der Tabelle. Funktioniert auch solange noch keine Datei mit gleichem Namen vorhanden ist.
Ist diese vorhanden kommt ja die Abfrage vorhandene überschreiben ja oder nein. Bei ja wird problemlos überschrieben, aber bei nein kommt...
28.05.2010 14:53:21
Thread-ID: 1159296
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
4
1
7
14
1
2
2
2
3
10
2
1
1
4
2
3
4
6
2
2
3
5
1
8