Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV-Datei erstellen mit | (Pipe-Symbol) statt ;

CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
Thorsten
Liebe Forumsmitglieder,
könnte mit einer von Euch u.U. helfen? Ich möchte eine CSV-Datei erstellen. Das stellt bisher kein Problem dar. Sie sollte aber in den ersten n-1 Zeilen als Trennzeichen ein Pipe-Symbol "|" besitzen und und nur in der letzten Zeile ein ";". Über den Texteditor kann man zwar das ";" durch "|" ersetzen, aber das ist so ein umständlicher Weg. Gibt es da eine elegantere Möglichkeit? Also, dass man das in Excel auswählen/einstellen kann? Für Eure Mühe und Hilfe danke ich Euch im Voraus.
Gruß Thorsten

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
23.11.2011 10:20:19
Rudi
Hallo, 
Public Sub prcCreateCSV()
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 = "|"
Const strSepLast As String = ";"
With Selection.CurrentRegion
For lngRow = 1 To .Rows.Count
vntArray = .Cells(lngRow, 1).Resize(, .Columns.Count)
vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray))
If strText = "" Then
strText = Join(vntArray, strSep)
Else
strText = strText & vbCrLf & IIf(lngRow = _
.Rows.Count, Join(vntArray, strSepLast), Join(vntArray, strSep))
End If
Next
End With
intFileNumber = FreeFile
With ActiveWorkbook
Open .Path & "\" & Left$(.Name, Len(.Name) - 4) & "_" & ActiveSheet.Name & ".csv" _
For Output As #intFileNumber
End With
Print #intFileNumber, strText
Close #intFileNumber
End Sub

Gruß
Rudi
Anzeige
AW: CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
23.11.2011 12:52:13
Thorsten
Hallo Rudi,
vielen Dank für Deine Antwort und die damit verbundene Hilfe. Ich habe da noch zwei, drei Fragen, da ich kein VBA beherrsche. Ich sehe zwar, was Du geschrieben hast, aber ich kann es nicht lesen. Deshalb nochmal meine Fragen. Wo muss ich das denn hinschreiben? Muss ich ein Makro aufmachen? Kann ich das einfach so reinkopieren, oder muss ich ggf. noch Anpassungen vornehmen? Kann ich denn die Exceldatei danach noch erweitern? Vielen Dank für Deine Geduld.
Gruß Thorsten
AW: CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
23.11.2011 14:37:26
Rudi
Hallo,
Mit Alt+F11 den VBE öffnen. links im Projektexplorer siehst du deine Mappe. Rechtsklick drauf, Einfügen-Modul und den Code da rein kopieren.
Anpassungen brauchst du imho nicht.
Gruß
Rudi
Anzeige
AW: CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
23.11.2011 15:01:24
Thorsten
Hallo,
nochmal Danke. Werde ich gleich mal probieren. Melde mich dann gleich nochmal zum Rapport.
Gruß Thorsten
AW: CSV-Datei erstellen mit | (Pipe-Symbol) statt ;
23.11.2011 16:33:35
Thorsten
Hi Rudi,
vielen Dank für Deine Hilfe.
Gruß Thorsten

8 Forumthreads zu ähnlichen Themen

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
Anzeige
CSV Datei erstellen
Chris

Hallo zusammen,
folgendes Makro exportiert das Sheet Masterliste als CSV Datei auf dem Desktop. Das tut es auch.
Zusätzlich wird aber das Register "MASTERLISTE" in der Originaldatei in "KalenderCSV" umbenannt.
Weiss einer wieso?
Das Makro soll nur die Masterliste als CSV mit Ko...
03.11.2011 09:13:29
Thread-ID: 1236382
2 Beiträge
csv Datei erstellen
Chris

Hallo zusammen,
das Makro speichert mir das sheet Masterliste als csv-datei auf dem Desktop. Zusätzlich ändert mir es das Sheet "Masterliste" in der Originaldatei in "KalenderCSV" um. Wie kann ich letzteres umgehen?
Sheets("Masterliste").SaveAs Filename:=Environ("UserProfile") & "\D...
03.11.2011 09:14:54
Thread-ID: 1236383
5 Beiträge
Anzeige
CSV Datei via VBA erstellen
Marc

Hallo zusammen,
ich habe den folgenden Quellcode erstellt. Mein Porblem ist es das die CSV-Datei durch "," getrennt ist und nicht durch ";" wie ich es benötige. Ich arbeite mit Office 2010. Im Forum habe ich bereits den Lösungsansatz von https://www.herber.de/forum/archiv/1112to1116/1115787...
04.02.2015 15:52:10
Thread-ID: 1407289
3 Beiträge
In VBA Access-Datenbank aus CSV-Datei erstellen
PeterG
Hallo an alle,
ich habe eine Frage an die VBA-Profis. Wegen der Datensatzmenge (500.000 Sätze) muß ich im Excel mit Hilfe von VBA (DAO) auf eine externe Access-Datenbank zugreifen. Das klappt wunderbar.
Die Access-Datenbank muß nun jeden Tag aus einer CSV-Datei neu erstellt werden. Dazu erst...
02.02.2004 14:39:10
Thread-ID: 375027
4 Beiträge
CSV-Datei erstellen
Fred

Ist es möglich, eine Textdatei im CSV-Format (außerhalb von Excel) so zu erstellen, daß beim Öffnen der Datei mit Excel der Inhalt auf mehreren Tabellenbättern erscheint?
Gruß
Fred
02.10.2007 17:51:44
Thread-ID: 912483
2 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
2
2
1
4
6
2
3
1