121129
Goto Top

Speicherproblem mit Excel als CSV-Datei (Datumsfeld)

Hallo face-smile,

Ich müsste euch mal wieder etwas fragen :-P und zwar muss ich eine Exceldatei mit einem Datumsfeld als CSV Datei speichern.
Das klappt alles wunderbar nur wenn ich die Datei mit dem Editor öffne erkennt man das es mit "/" abgespeichert ist. D.h beim Editor wird das Datum als 12/05/2015 abgespeichert.

Meine Frage an euch ist jetzt, ob man das auch so abspeichern kann das es im Editor als 12.05.2015 angezeigt wird. Dies wäre sehr wichtig für die spätere Verarbeitung!

Danke im vorraus für jede Hilfe face-smile

Mit freundlichen Grüßen,
Gast2015

Content-Key: 271789

Url: https://administrator.de/contentid/271789

Printed on: April 19, 2024 at 04:04 o'clock

Mitglied: 114757
Solution 114757 May 12, 2015 updated at 11:19:28 (UTC)
Goto Top
In den Regionsoptionen von Windows auf Deutsch umstellen... und Excel neu starten.

Gruß jodel32
Mitglied: 121129
121129 May 12, 2015 at 11:21:51 (UTC)
Goto Top
danke für die Antwort face-smile das ist bei mir schon eingestellt. Es wird auch in Excel richtig angezeigt nur wenn ich es abspeichere ist es falsch face-sad
Mitglied: 114757
Solution 114757 May 12, 2015 updated at 13:26:05 (UTC)
Goto Top
Zitat von @121129:

danke für die Antwort face-smile das ist bei mir schon eingestellt. Es wird auch in Excel richtig angezeigt nur wenn ich es
abspeichere ist es falsch face-sad
  • Kein deutsches Excel ?
  • Wie ist die Formatierung der Datums-Zelle eingestellt ?
  • Mach mal eine Custom-Formatierung der Datumszellen auf das Format: TT.MM.YYYY
Mitglied: 121129
121129 May 12, 2015 updated at 13:01:55 (UTC)
Goto Top
mit der Custom-formatiertung geht es wenn ich es manuell mache. Wenn ich es aber mit einem Makro mache nämlich:
Sub Makro1()
'  
' Makro1 Makro  
'  

'  
    Sheets("XX").Select  
    Range("A1").Select  
Dim zeller As Range
a:
For Each zeller In Range("F2", "F999")  
If zeller.Value = "0" Then  
zeller.EntireRow.Delete
GoTo a
End If
Next zeller
    Cells.Select
    ChDir _
        "G:\XX\XX\XX\XX"  
    ActiveWorkbook.SaveAs Filename:= _
        "G:\XX\XX\XX\XX\XX.csv" _  
        , FileFormat:=xlCSVMSDOS, CreateBackup:=False
    Sheets("Eingabe").Select  
    Range("A1").Select  
End Sub

dann hab ich wieder die / beim Datum

[Edit Biber] Codeformatierung.[/Edit]
Mitglied: 114757
Solution 114757 May 12, 2015 updated at 13:26:02 (UTC)
Goto Top
Wenn ich es aber mit einem Makro mache nämlich:
Jahaaaaaaaaa, das du ein Makro verwendest hättest du natürlich erwähnen müssen ...

In dem Fall musst du die Zeile so ändern:
ActiveWorkbook.SaveAs Filename:="G:\XX\XX\XX\XX\XX.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False, Local:=True  
Also hinten noch ein Local:=True anhängen, dann klappt's auch mit dem Nachbarn und den Punkten face-wink

[Edit Biber] Auf Wunsch des TO den Dateipfad anonymisiert.[/Edit]
Mitglied: 121129
121129 May 12, 2015 at 13:02:38 (UTC)
Goto Top
Jetzt hat es geklappt face-smile vielen Dank!