Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV Export

CSV Export
24.01.2004 08:25:56
Wolfgang
Hallo Forum,
habe folgendes Problem:
Daten aus vier Spalten sollen im CSV-Format per Makro abgespeichert werden.
Die Daten sehen folgendermaßen aus:
Objet ID Datum Uhrzeit Wert
110001 10.02.2003 08:00 3,02
Beim speichern der Tabelle von Hand klappt alles wunderbar, beim speichern
per Makro wird aus dem Punkt in der Spalte "Datum" ein Schrägstrisch und
in der Spalte "Wert" aus dem Komma ein Punkt.
Hoffe mir kann jemand weiterhelfen.
Im vorraus vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: CSV Export
24.01.2004 11:18:35
kermit
markiere den zu exportierendén Bereich un führe folgenden Code aus:

Sub test()
Dim c As Range
Dim x As String
For Each c In Selection
x = c.Value
c.NumberFormat = "@"
If c.Column = 3 Then
x = Format(x, "hh:mm")
Else
End If
c.Value = x
Next c
End Sub

AW: CSV Export
24.01.2004 11:36:45
kermit
schreibe in die Spalte d, die Du ausblenden kannst in die erste Zelle und kopiere die Formel nach unten:

=WENN(UND(C1<>"Feiertag";WOCHENTAG(B1;2)<5);1;0)

schreibe dann in E7
=SUMMEWENN(D1:D31;1)
AW: CSV Export
24.01.2004 11:38:34
kermit
schreibe in die Spalte d, die Du ausblenden kannst in die erste Zelle und kopiere die Formel nach unten:

=WENN(UND(C1<>"Feiertag";WOCHENTAG(B1;2)<5);1;0)

schreibe dann in E7
=SUMMEWENN(D1:D31;1)
Anzeige
AW: CSV Export
25.01.2004 07:34:34
Wolfgang
Hallo kermit,
erstmal danke für deine Antwort. Irgendwie haben wir uns glaub ich
falsch verstanden. Ich habe in Spalte "B" Daten im Format Datum,
also 10.02.2003 usw. In Spalte "D" stehen Daten im Format Standard
also 3,02 etc.
Wenn ich diese Tabelle nun im csv-Format speichere und mir die Datei
mit einem Hex-Editor betrachte ist alles in Ordnung.
Wenn ich die Tabelle allerdings aus einem Makro heraus speichere
also:
ActiveWorkbook.SaveAs Filename:= "test.csv", FileFormat:=xlCSV
sieht der Eintrag so aus: 10/02/2003 3.02
Also aus dem Punkt in Spalte B wurde ein Schrägstrich und aus dem
Komma in Spalte D wurde ein Punkt.
Scheint irgendwie ein Länderspezifisches Problem zu sein.
Anzeige
AW: CSV Export
25.01.2004 09:02:48
Wolfgang
Hallo kermit,
Problem hat sich erledigt.
Schreibe die Daten per Open filename direkt
in die Datei.
Trotzdem danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige