Datumsformat nicht wie gewünscht über TextBox

Moin Moin!
Wenn ich eine Zelle mit dem Datumsformat Benutzerdefiniert "tt.mm.jjjj" formatiere und dann anschließend dort "2.6.7" eingebe, dann erscheint automatisch in dieser Zelle "02.06.2007". Das ist auch so von mir gewollt.
Wenn ich aber nun via einem UserForm in dem eine TextBox zur Datumseingabe ist, diese TextBox damit "beauftrage" mir in meine definierte Zelle ein Datum einzutragen, dann funktioniert das nicht?!?
Es steht dort in der Zelle "2.6.7" ...obwohl auf "tt.mm.jjjj" primär formatiert. Das Format dieser Zelle wechselt dann auch merkwürdigerweise: Nicht mehr in der Kategorie "Benutzerdefieniert", sondern zur Kategorie "Datum". Dort steht dann als Formatvorgabe "*02.06.2007" o. ähnl. ....?!?
Das erzeugt in mir Fragezeichen? ...und zwar viele!
Weiß jemand eine Antwort auf dieses Problem?! ...und wie könnte ich es realisieren, dass das Datum wie gewünscht erscheint, obwohl es nur abgespeckt" in die TextBox eingegeben wurde?
Viele Grüße aus dem hohen Norden
Lenhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lennard,
wie der Name schon sagt. Es sind Text-Boxen. Diese geben standardmäßig Text zurück. Beim Eintrag in die Zellen per Makro vesucht Excel dann aus der Eingabe irgendetwas zu machen, was aber nicht zwangsläufig erwünscht ist.
Man muss in der Prozedur, die den Textboxinhalt in die Tabelle schreibt den Textboxinhalt umwandeln, um das gewünschte Erebnis zu erhalten.
Nachfolgend ein Beispiel für das Datum. Hier wird dann z.B. auch die Kurzeingabe 2.2 in 2.2.2007 umgewandelt.
Probleme treten übrigens auch bei Zahleneingaben auf insbesondere wenn Deimalstellen (als Punkt oder Komma) mit eingegeben werden. Auch hier sollte man die Textboxeingabe immer sauber in eine Zahl umwandeln, bevor sie in eine zelle eingetragen wird.
Gruß
Franz


Private Sub CommandButton1_Click()
On Error GoTo Fehler
ActiveWorkbook.Worksheets("Tabelle1").Cells(5, 2).Value = CDate(Me.TextBox1.Value)
ActiveCell.Value = CDate(Me.TextBox1.Value)
Unload Me
Exit Sub
Fehler:
MsgBox "Eingabe konnte nicht in ein Datum umgewandelt werden!"
End Sub

Beliebteste Forumthreads (12 Monate)

Datumsformat nicht wie gewünscht über TextBox

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumsformat nicht wie gewünscht über TextBox

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread