Datum auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

habe in einer Excel-Datei ein Datum xx.xx.xxxx wie folgt bearbeitet:

For i = lzeile + 1 To letztezeile
Cells(i, 23).NumberFormat = „@“
Cells(i, 23).Value = Month(Cells(i, 16)) & „.“ & Year(Cells(i, 16))
…

Also will halt nur Monat und Jahr haben…
Wie kann ich es machen, das für die einstelligen Monat eine „0“ davor kommt? Also 01.2012?
In Access sortiert er mir das jetzt blöd, weil auf 1.2012 gleich 10.2012 folgt.
Oder gibt es eine elegantere Lösung dafür?

Vielen Dank schonmal!

MfG

#2

Cells(i, 23).Value = Month(Cells(i, 16)) & „.“ & Year(Cells(i,
16))

Hallo Brille,

= format(Month(Cells(i, 16)),„00“) & „.“ & Year(Cells(i, 16))

Gruß
Reinhard

#3

Hallo Reinhard,

klappt so, danke!

MfG

#4

Grüezi zusammen

Cells(i, 23).Value = Month(Cells(i, 16)) & „.“ & Year(Cells(i,
16))

= format(Month(Cells(i, 16)),„00“) & „.“ & Year(Cells(i, 16))

Oder alternativ auch so:

 Cells(i, 23).Value = Format(Cells(i, 16).Value, "mm.yyyy")

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -