Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
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
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

JE Zeile eine csv-Datei erzeugen

JE Zeile eine csv-Datei erzeugen
11.02.2014 08:35:45
Jockel
Guten Morgen Forum,
ich benötigte ein Makro, welches mir aus jeder Zeile einer .xlsx Datei eine csv-Datei erstellt.
Zum Hintergrund:
In einer Excel-Tabelle werden wöchentlich Daten gesammelt. Die Datensätze stehen untereinander und die Informationen je Datensatz stehen in Spalte A-M.
Sind alle Datensätze je Woche erfasst, sollen sie mittels Makro als csv-Datei (Semikolon-getrennt) gespeichert werden. Je Zeile entsteht so eine csv-Datei. Der Name der jeweiligen csv-Datei muss aus dem Wert der Spalte K des jeweiligen Datensatz generiert werden. Der Speicherort der csv-Dateien kann gleich dem Verzeichnis der xlsx-Datei sein.
Vielen Dank für Eure Hilfe!!

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

Betreff
Datum
Anwender
Anzeige
AW: JE Zeile eine csv-Datei erzeugen
11.02.2014 09:15:49
Martin
Hallo Jockel,
mit diesem Makro sollte dein Vorhaben klappen:
Sub RowToCSV()
Dim i As Long, j As Integer
Dim strRow As String, strFilePath As String
strFilePath = ThisWorkbook.Path & Application.PathSeparator
For i = 1 To ActiveSheet.UsedRange.Rows.Count
strRow = Empty
For j = 1 To ActiveSheet.UsedRange.Columns.Count
strRow = strRow & Cells(i, j) & ";"
Next j
Open strFilePath & Cells(i, 11) & ".csv" For Output As #1
Print #1, strRow
Close #1
Next i
End Sub
Viele Grüße
Martin

Kleine Änderung....
11.02.2014 09:20:22
Martin
Hallo Jockel,
irgendwie hatte ich überlesen, dass der Export sich auf die Spalten A-M beschränkt. Bei meinem Makro wurden alle vewendeten Spalten in die CSV-Dateien exportiert. Mit diesem Makro ist bei Spalte M auch wirklich Schluss:
Sub RowToCSV()
Dim i As Long, j As Integer
Dim strRow As String, strFilePath As String
strFilePath = ThisWorkbook.Path & Application.PathSeparator
For i = 1 To ActiveSheet.UsedRange.Rows.Count
strRow = Empty
For j = 1 To 13
strRow = strRow & Cells(i, j) & ";"
Next j
Open strFilePath & Cells(i, 11) & ".csv" For Output As #1
Print #1, strRow
Close #1
Next i
End Sub

Anzeige
AW: Kleine Änderung....
11.02.2014 11:22:57
Jockel
Hallo Martin,
das sieht verdammt gut aus. Alle Dateien werden erzeugt. Vielen Dank dafür!!!
Ein kleines Problem hab ich noch:
Das letzte Semikolon verhindert die Weiterverarbeitung der csv-Datei.
Was muss ich im Code ändern?
Gruß
Jockel

AW: Kleine Änderung....
11.02.2014 12:11:52
Rudi
Hallo, 
Sub RowToCSV()
Dim i As Long, j As Integer
Dim strRow As String, strFilePath As String
strFilePath = ThisWorkbook.Path & Application.PathSeparator
For i = 1 To ActiveSheet.UsedRange.Rows.Count
strRow = Empty
For j = 1 To 13
strRow = strRow & Cells(i, j) & ";"
Next j
strRow = Left(strRow, Len(strRow)-1)
Open strFilePath & Cells(i, 11) & ".csv" For Output As #1
Print #1, strRow
Close #1
Next i

End Sub

Anzeige
AW: Kleine Änderung....
11.02.2014 12:21:41
Jockel
Perfekt!!!
Vielen Dank an alle!

300 Forumthreads zu ähnlichen Themen

Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 Beiträge
Anzeige
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Makro: Datumsformat einer csv-Datei
Ralf

https://www.herber.de/bbs/user/59842.xls
Hallo,
die beigefügte Datei ist bei mir eine csv-Datei. Ich mußte sie als xls-Datei hochladen, da csv in diesem Forum nicht hochgeladen werden kann.
Unten aufgeführtes Makro macht bei dem Settlement date aus dem 4.3. den 3.4.
Sub FIDHa...
27.02.2009 11:43:56
Thread-ID: 1054679
2 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
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
4
10
6
1
3
4
2
14
1
3
15
4
3
1
6
1
9
3
17
9
6
2
2
2
1