Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "aus 1.1.7 soll 01.01.2007 werden"
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden Hyperlinks sollen mit Quell- und Zieladresse gelistet werden
Labelwerte werden beim Verlassen einer TextBox berechnet Details von Verknüpfungen sollen aufgelistet werden
Werte aus Tabellenblatt-TextBoxes sollen addiert werden Anzeige, wenn Listenwerte gefunden werden