CSV Export

Forumthread: 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

AW: CSV Export

24.01.2004 11:18:35

kermit
AW: CSV Export

24.01.2004 11:36:45

kermit
AW: CSV Export

24.01.2004 11:38:34

kermit
AW: CSV Export

25.01.2004 07:34:34

Wolfgang
AW: CSV Export

25.01.2004 09:02:48

Wolfgang

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)

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.

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)

Forumthread: CSV Export

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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread