Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Als *.csv bestimmte Bereiche speichern

Als *.csv bestimmte Bereiche speichern
mehmet
Hallo Forum,
wie kann ich bestimmte Bereiche als *.csv Datei speichern?
Wenn ich Makroaufzeichnung mache, wird alles gespeichert (;;;;;;;;;;;).
Beginnend soll die Abfrage Zelle H10.
Wenn H10 = leer, dann Makro ende, sonst nur Zelle C10, F10, G10, H10, i10 und AB10 als csv (;) speichern.
Wenn H11 = leer, dann Makro ende, sonst nur Zelle C11, F11, G11, H11, i11 und AB11 als csv (;) speichern.
usw. bis H-Zelle leer ist.
Dateiname soll "daten.csv" heissen im Verzeichnis: "C:\Dokumente und Einstellungen\...\Desktop"
Dank und Gruss
mehmet

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

Betreff
Benutzer
Anzeige
AW: Als *.csv bestimmte Bereiche speichern
16.11.2009 07:19:32
Heinz
Hallo mehmet,
hier ein ungetesteter Versuch (Zielordner Verz und Tabellennamen bitte anpassen): 
Sub csv_speichern()
Dim ws As Worksheet, lz%, z As Range, F%, strTemp$
Dim strSpeicherPfad$, Verz$
Verz = "C:\"                    'muss mit Backslash enden!
strSpeicherPfad = Verz & "daten.csv"
Set ws = ThisWorkbook.Worksheets("Tabelle 1")
lz = ws.Cells(Rows.Count, 8).End(xlUp).Row
F = FreeFile
Close
Open strSpeicherPfad For Output As #F
For Each z In ws.Range("H10:H" & lz)
If z.Value = "" Then Exit For
strTemp = strTemp & z.Offset(0, -5).Text & ";"      'C
strTemp = strTemp & z.Offset(0, -2).Text & ";"      'F
strTemp = strTemp & z.Offset(0, -1).Text & ";"      'G
strTemp = strTemp & z.Text & ";"                    'H
strTemp = strTemp & z.Offset(0, 1).Text & ";"       'I
strTemp = strTemp & z.Offset(0, 20).Text & ";"      'AB
strTemp = Left(strTemp, Len(strTemp) - 1)
Print #F, strTemp
strTemp = ""
Next z
Close #F
End Sub

Gruß
Heinz
Anzeige
AW: Als *.csv bestimmte Bereiche speichern
16.11.2009 11:28:11
mehmet
Herzlichen Dank Heinz,
es funktioniert.
Viele Grüsse
mehmet

309 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
Registerkarte als csv separat speichern
Herbert

Hallo,
ich möchte eine Registerkarte per Knopfdruck auf einen Button (Steuerelement) in eine neue Datei im Ordner C:\Temp speichern. Anbei der Code zum Speichern im txt-Format. Kann man diese auf das Ausgabeformat csv modifizieren? Bin für jede Hilfe dankbar.
Gruß Herbert
Dim strSep...
16.10.2008 10:01:00
Thread-ID: 1016757
2 Beiträge
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
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
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
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 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
33
1
5
4
1
2
4
2
3
14
1
1
1
1
2
2
5
3
5
4
3
7
1
8