Datumsanzeige "YYYY"

[diving_excel]

Hallo!

Ich habe eine Frage zur Darstellung des Datumsformats. Wenn ich ein Datum mit dem Format DD.MM.YY eingebe ( zb. 20.03.23) und dass Jahr dann vierstellig anzeigen lassen möchte funktioniert das auch gut bis zum Jahr 2030. Ab diesem Jahr ändert Excel das Datum automatisch zu 1930.

Hab mir jetzt ein mittels einer Excel Formel geholfen:

Code:

=WENN(JAHR(A1)<2000;DATUM(JAHR(A1)+100;MONAT(A1);TAG(A1));A1)

Kann mir jemand bitte sagen wie dieser Code in VBA aussehen könnte?

Edit: Dabei soll das Datum innerhalb des Textfelds 1 (ActiveX Steuerelement) umgewandelt werden.

Danke vielmals!
Gruß

[diving_excel]

Also wenn ich das Datum "20.02.32" eingebe zeigt mir Excel "20.02.1932" an. Jetzt bräuchte ich einen VBA Code der erkennt dass das Jahr < 2000 ist und wenn dies der Fall ist dass zu denn eingegebenen Jahr 100 dazu gerechnet wird. Dann sollte das Datum ja wieder stimmen.

[Elex]

Hi

Verstehe ich jetzt so.

In Textbox1 steht „01.03.32“ und es soll in „01.03.2032“ umgewandelt werden.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
TextBox1.Value = DateSerial(2000 + Right(TextBox1.Value, 2), Month(TextBox1.Value), Day(TextBox1.Value))
Cancel = True
End Sub

Gruß Elex

[snb]

Numberformat:

TT.mm."20"jj

[diving_excel]

Danke für eure Hilfe, hat funktioniert!