Erfassung von Datum und Jahrgang in einer Zelle
15.06.2007 12:53:00
Datum
Ich habe folgendes Problem:
In einer Zelle muss ich sowohl das ganze Datum (tt.mm.jjjj) als auch nur das Jahr eingeben können und
die Anzeige sollte korrekt sein.
Ein Beispiel:
1) nach der Eingabe von 12.5.77 soll der folgende Wert in der Zelle angezeigt werden: 12.05.1977
2) Nach der Eingabe von 1965 (oder nur 65) soll der folgende Wert in der Zelle angezeigt werden: 1965.
Oder vereinfacht gesagt in der Zelle soll das Geburtsdatum oder der Jahrgang erfasst werden können.
3) Am Schluss wird eine csv-Datei erzeugt mit folgenden Werten (bis jetzt nur fürs Datum implementiert):
19770512
19650000
Für die CSV-Datei hat folgender Code korrekt funktioniert:
....
....
Rem Das Geburtsdatum umformatieren:
Range("A1:A100").Select
Selection.NumberFormat = "yyyymmdd"
....
Rem Text-File (im csv-Format) speichern und schliessen:
ActiveWorkbook.SaveAs Filename:= _
myFilename + ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close (False)
....
Hat jemand eine Idee wie man das lösen könnte ?
Danke und Gruss
Damir