PDA

Vollständige Version anzeigen : Datumskonvertierung


Medina
26.09.2016, 20:06
Hallo zusammen,

ich habe eine Frage. In Zelle A1 steht beispielsweise "ab 28.08.16". In Zelle B1 soll nun "28.08.2016" stehen. Also das "ab " muss abgeschnitten werden und statt 16 soll 2016 in der Zelle stehen.

Ich hätte das mit diesem Code gelöst:

Sub test()

Cells(1, 2).Value = Right(Cells(1, 1), 8)
Cells(1, 1).NumberFormat = "dd/mm/yyyy"

End Sub


Das Ergebnis in Zelle B2 ist leider "28.08.16" und ein Ausrufezeichen links oben an der Zelle mit dem Text "Diese Zelle enthält einen Datumswert mit nur zweistelliger Jahreszahl" (siehe Anhang).

Hat jemand eine Lösung dafür?
Vielen Dank!

amicro2000
26.09.2016, 20:09
Hallo,

schreib das Right(Cells(1, 1), 8) in ein datevalue() rein.

Medina
26.09.2016, 20:18
Danke für die Info. Dann erscheint: Laufzeitfehler 13 - Typen unverträglich.

Luschi
26.09.2016, 20:46
Hallo Medina,

bei mir funktioniert es so:Sub test_1()
Cells(1, 2).Value = CDate(Right(Cells(1, 1), 8))
Cells(1, 2).NumberFormat = "m/d/yyyy"
End SubGruß von Luschi
aus klein-Paris

Medina
26.09.2016, 21:29
Hatte mich im Code verschrieben. Geht beides, vielen Dank.

Medina
27.09.2016, 19:06
Ich hab noch ein letztes Problem und wäre sehr dankbar, wenn mir noch mal weitergeholfen werden könnte.
Der User kann in eine Inputbox eine Kalenderwoche eingeben, z. B. 50 für KW 50.
Nun soll ermittelt werden, ob sich diese KW 50 NICHT in einem Intervall von Datum 1 und Datum 2 befindet.
Bsp: In Zelle A1 steht "13.12.2015" und in Zelle B1 "17.4.2016".