Textbox mit aktuellem Datum
01.09.2005 08:47:33
Kira
Ich möchte gerne, dass in meiner Textbox immer das aktuelle Datum erscheint. Das ganze funktioniert auch, als ich es gestern erstellt habe, allerdings bleibt das gestrige Datum auch heute stehen. Es springt also nicht um auf den 1. September 2005.
Ich habe es bisher damit probiert: (so habe ich immerhin keine Zahlen drin stehn sodern das richtige Datumsformat, nur bleibt das Datum eben im am Tag des erstellens stehen und aktualisiert sich nicht)
Private Sub TextBox1_Initialize()
TextBox1.Value = Date
TextBox1.Value = Format(TextBox1.Value, "dd. mmmm yyyy")
End Sub
Stimmt TextBox1_Initialize() überhaupt, wenn ich keine UserForm habe sondern die Textbox direkt in einer Exceltabelle anwende?
Ich habe es auch schon probiert, indem ich in einer Zelle die Formel =Heute() anwende, der Zelle den Namen "date" gebe und diese dann über LinkedCell mit der Textbox verknüpfe. Ergebnis: In meiner Zelle steht das aktuelle Datum, in der Textbox nur die wirren Zahlen. Formatiere ich die Textbox mit
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "dd. mmmm yyyy")
End Sub
dann habe ich dort zwar ein datum steht, allerdings den 31. August 2005. Und der steht dann auch anstatt der Formel =Heute() in meiner Zelle.
Hat jemand eine Idee, was ich falsch mache oder eine Lösung, wie ich das aktuelle Datum in eine Textbox bekomme und es sich auch jeden Tag aktualisiert?
Hoff, ihr könnt mir helfen!
Gruß
Kira