Datum 4stellig formatieren
06.05.2009 14:35:11
Kai
ich trage mit felgendem Code ein Datum aus einer Textbox (33) auf ein sheet.
Private Sub CommandButton1_Click()
Dim I As Long
I = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
If I
Das klappt auch soweit. Meine Frage: wenn ich zB in die Textbox33 das Datum "02.10.12" eingebe, will ich, dass die Jahreszahl als 4 stellig in mein sheet geschrieben wird, also 02.10.2012.
Wie wandele ich das Datum vor dem kopieren in eine 4stellige Jahreszahl ?
Danke Kai
Anzeige