aus 1.1.7 soll 01.01.2007 werden

Bild

Betrifft: aus 1.1.7 soll 01.01.2007 werden
von: Edwin
Geschrieben am: 17.02.2005 12:31:21
Hallo zusammen,
ich habe folgenden umständlichen und nicht vollständig funktionierenden VBA:


Private Sub txtDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txtDatum.Text = Format(txtDatum.Text, "dd.mm.yy") Or txtDatum.Text = Format(txtDatum.Text, "d.m.yy") Or txtDatum.Text = Format(txtDatum.Text, "d.m.y") Then
        txtDatum.Text = Format(txtDatum.Text, "dd.mm.yyyy")
    ElseIf txtDatum.Text = Format(txtDatum.Text, "dd.mm.yyyy") Then
        BlaBla
    End If
End Sub

Ich will halt erreichen, dass sämtliche Datumseingaben in "dd.mm.yyyy" umgewandelt werden.
Kann ich das irgendwie eleganter lösen, vorallem "d.m.y" geht gar nicht?
Gruß
Edwin
Bild

Betrifft: AW: aus 1.1.7 soll 01.01.2007 werden
von: Tim
Geschrieben am: 17.02.2005 12:32:37
Da genügt das Zahlenformat TT.MM.JJJJ
Tim
Bild

Betrifft: Danke
von: Edwin
Geschrieben am: 17.02.2005 13:23:13
Hallo Tim,
manchmal denke ich einfach viel zu kompliziert.
Vielen Dank!
Gruß
Edwin
Bild

Betrifft: AW: len()?
von: Nike
Geschrieben am: 17.02.2005 12:35:06
Hi,
mal mit len() versucht?
if len(txtDatum.Text)<10 then
txtDatum = Format(txtDatum.Text, "dd.mm.yyyy")
end if
Bye
Nike
 Bild

Beiträge aus den Excel-Beispielen zum Thema "aus 1.1.7 soll 01.01.2007 werden"