Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei als csv mit Semikolon als Trenner ausgeben

Forumthread: Datei als csv mit Semikolon als Trenner ausgeben

Datei als csv mit Semikolon als Trenner ausgeben
23.10.2012 12:35:39
John
Hallo alle,
wieder trifft mich das Problem des Umstiegs von Office 2003 auf Office 2007.
Das bis Office 2003 funktionierende Makro gibt neuerdings kein Semikolon als Trennzeichen aus.
Lässt sich das irgendwie beheben?
Ich danke für eure Unterstützung.
John
Das bis Excel 2003 funktionierende Makro ist wie folgt: 
Sub TabelleAlsDateiAusgeben()
' TabelleAlsDateiAusgeben Makro
zähler = 1
Sheets(zähler).Select
For Blatt = 1 To Sheets.Count
Sheets(zähler).Select
Dateiname = (ActiveWorkbook.Path & "\" & ActiveSheet.Name)
Sheets(zähler).Copy
ActiveWorkbook.SaveAs Filename:=(Dateiname & ".csv"), _
FileFormat:=xlCSV, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False, local:=True
ActiveWindow.Close
zähler = zähler + 1
Next Blatt
Sheets(1).Select
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datei als csv mit Semikolon als Trenner ausgeben
23.10.2012 12:58:04
Rudi
Hallo,
ich benutze sowas: 
Sub wks2csv()
Dim wks As Worksheet
For Each wks In Worksheets
prcCreateCSV wks
Next
End Sub
Public Sub prcCreateCSV(wks As Worksheet)
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim intItem As Integer
Dim strText As String
Dim i As Integer
Const strSep As String = ";"
With wks.Cells(1, 1).CurrentRegion
For lngRow = 1 To .Rows.Count
vntArray = .Cells(lngRow, 1).Resize(, .Columns.Count)
vntArray = WorksheetFunction.Transpose(vntArray)
vntArray = WorksheetFunction.Transpose(vntArray)
If strText = "" Then
strText = Join(vntArray, strSep)
Else
strText = strText _
& vbCrLf _
& IIf(lngRow = .Rows.Count, Join(vntArray, ";"), Join(vntArray, strSep))
End If
Next
End With
intFileNumber = FreeFile
With ActiveWorkbook
.Save
Open _
.Path & "\" _
& Left(.Name, Len(.Name) - 4) _
& "_" & wks.Name _
& ".csv" _
For Output As #intFileNumber
End With
Print #intFileNumber, strText
Close #intFileNumber
End Sub

Gruß
Rudi

Anzeige
AW: Datei als csv mit Semikolon als Trenner ausgeben
23.10.2012 16:13:26
John
Hallo Rudi,
herzlichen Dank !
John

AW: Datei als csv mit Semikolon als Trenner ausgeben
23.10.2012 22:09:45
rene
Guten Abend ,
Wie müsste der code geändert werden , wenn nur 1 Tabellenblatt aus der Arbeitsmappe z.B.("Tabelle1")als csv gepeichert werden soll ?
Sub wks2csv()
Dim wks As Worksheet
For Each wks In Worksheets
prcCreateCSV wks
Next
End Sub
Danke René

Anzeige
AW: Datei als csv mit Semikolon als Trenner ausgeben
23.10.2012 22:19:28
Rudi
Hallo, 
Sub wks2csv()
prcCreateCSV Sheets("Tabelle1")
End Sub

Gruß
Rudi
;

Forumthreads zu verwandten Themen

CSV Trennzeichen Semikolon
Ralf

Hallo liebes Excelforum,
ich bin schier am verzweifeln mit meinem CSV Semikolon Problem. eigentlich alt bekannt, ich kriegs aber nicht hin. Hab auch schon in der Registriy wie beschrieben den Eintrag wegen dem US-Standard ergänzt... Der scheint aber nur für Excel2000 gültig zu sein.
Ich...
30.08.2008 16:09:22
Thread-ID: 1006065
16 Beiträge
*. csv mit excel dateinamen speichern
eric1

Hallo,
komm hier nicht weiter, die *.xls oder *.xlsx werden geöffnet, dann werden sie in verschieden Formaten und Verzeichnissen gespeichert, die CSV soll Dateiname und Datum/Uhrzeit als Dateiname bekommen, Code wie folgt :
Public Sub exceldateioeffnen() Const LW = "F:\" Const Pfad =...
03.03.2009 22:52:42
Thread-ID: 1056138
2 Beiträge
Anzeige
CSV File mit 2 Semikolons am Schluss
Flo

Hallo, ich habe folgendes Problem:
Ich muss eine normale Tabelle als CSV-File Exportieren. Dass sollte denk ich mit SaveAs ja kein Problem sein, nur müssen am Ende jeder Zeile zum Abschluss 2 Semikolons stehen, da das ganze dann in eine externe DB geladen wird und das dort Bedingung ist. Le...
29.04.2009 10:49:13
Thread-ID: 1071820
3 Beiträge
Anzeige
CSV selbst erstellt - Komma statt Punkt
Philipp

Hallo an alle!
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komm...
29.07.2009 11:08:31
Thread-ID: 1092173
7 Beiträge
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 au...
18.08.2009 11:10:12
Thread-ID: 1096657
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
csv mit semikolon temporär erstellen + verschicken
Peter

Hallo,
ich möchte eine csv-Datei temporär erstellen und per outlook verschicken, Trennzeichen muss ein Semikolon sein. Habe folgenden Code (Auszug), aber leider bekomme ich immer ein Komma als Trenner:
'CSV-Datei versenden
Dim strMailEmpfaenger As String
i = Application.ActiveWo...
29.09.2010 11:52:37
Thread-ID: 1179878
4 Beiträge
Anzeige
csv mit Semikolon erzeugen
sabrina

Wie kann ich aus einem Tabellenblatt eine csv-Tabelle mit Semikolons erzeugen?
29.05.2002 10:48:38
Thread-ID: 124498
6 Beiträge
Anzeige
CSV Datei , mit Semikolon speichern
rene

Hallo zusammen
ich versuche eine CSV datei aus Excel heraus mit lotus notes zu versenden , funktioniert soweit auch , Probleme habe ich damit das csv file als semikolon getrennt zu speichern. Hat jemand eien Idee wie der Code geändert werden sollte?
Sub send() Dim stFileName As String...
23.10.2012 12:33:09
Thread-ID: 1283435
5 Beiträge
CSV mit Komma
Vilim

Ich benutze folgendes Makro um eine Excel-Tabelle als CSV mit Komma als Delimiter und " als Texterkennung (habe nur Alpha-Felder) zu speichern. Sub CSV_mit_Komma()
'
Dim TB As Worksheet
Dim TMP$, ExePath
Dim Hex1 As String
Dim z%, s%
ExePath = Application.GetSaveAsFil...
25.06.2002 16:30:32
Thread-ID: 131284
3 Beiträge
csv files mit Komma trennen
Kneubühler Thomas

Ich möchte meine .csv files defaultmässig mit Komma getrennt haben. Bei meiner Privaten WS kann ich in den Ländereinstellungen den Separator auf Komma setzen und es funktioniert. In der Firma ist es nach jedem Reboot weg. Kann da eine Policy schuld sein? Oder wie kann ich das einstellen?
Bet...
23.07.2002 10:54:58
Thread-ID: 139327
2 Beiträge
.csv files mit Komma trennen
Thomas Kneubühler

Ich möchte meine .csv files defaultmässig mit Komma getrennt haben. Bei meinem Privaten PC kann ich in den Ländereinstellungen den Separator auf Komma setzen und es funktioniert. In der Firma ist es nach jedem Reboot weg. Kann da eine Policy schuld sein? Oder wie kann ich das einstellen?
Bet...
25.07.2002 07:50:50
Thread-ID: 140269
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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