Datum in Textbox anzeigen

Computer: Software & Programmierung Office Software
1

Hi, kann mir jemand sagen, wie ich in einer Textbox in einer Userform, das heutige Datum anzeigen kann, wenn ich den Buchstaben „h“ eingebe? Und wenn ich „g“ eingebe, dann soll da das gestrige Datum stehen. Ist das möglich?

Hatte eigentlich einen Kalender eingebunden gehabt (MS MonthView) aber der macht mir zu viele Probleme. Hatte das so eingestellt, dass wenn man auf das Datum klickt, das gewünschte Datum in die Textbox geschrieben wird. Aber bei einigen Kollegen konnte der Kalender nicht geladen werden.

Daher dacht ich mir: Sche… auf den Kalender :=)

Danke euch

2

Hallo Kolri,

Hi, kann mir jemand sagen, wie ich in einer Textbox in einer
Userform, das heutige Datum anzeigen kann, wenn ich den
Buchstaben „h“ eingebe? Und wenn ich „g“ eingebe, dann soll da
das gestrige Datum stehen. Ist das möglich?

Private Sub TextBox1\_Change()
Application.EnableEvents = False
Select Case UCase(TextBox1.Value)
Case "H"
 TextBox1.Value = Format(Date, "dd.mm.yy")
Case "G"
 TextBox1.Value = Format(Date - 1, "dd.mm.yy")
End Select
Application.EnableEvents = True
End Sub

Hatte eigentlich einen Kalender eingebunden gehabt (MS
MonthView) aber der macht mir zu viele Probleme. Hatte das so
eingestellt, dass wenn man auf das Datum klickt, das
gewünschte Datum in die Textbox geschrieben wird. Aber bei
einigen Kollegen konnte der Kalender nicht geladen werden.

Was unterscheidet die PCs deiner Kollegen von deinem?

Was ist mit dem Kalender:
Kalender Steuerelement X.0
?

Gruß
Reinhard

3

Hi Reinhard

Private Sub TextBox1_Change()
Application.EnableEvents = False
Select Case UCase(TextBox1.Value)
Case „H“
TextBox1.Value = Format(Date, „dd.mm.yy“)
Case „G“
TextBox1.Value = Format(Date - 1, „dd.mm.yy“)
End Select
Application.EnableEvents = True
End Sub

Hat super geklappt. Danke dir.

Was unterscheidet die PCs deiner Kollegen von deinem?

Eigentlich nichts. Alle haben die selben Rechner mit der selben Excelversion. War schon komisch. Daher habe ich mich jetzt gegen den Kalender :smile:

Was ist mit dem Kalender:
Kalender Steuerelement X.0

Ja hatte den Kalender auch gesehen, aber ich glaube der unterstützt das „Show Today“ nicht und der ist nicht so schön wie der MonthView Kalender :smile:

Ich danke dir aber für deinen Hinweis und deiine Hilfe. Das mit dem „h“ manuell eingeben, dass reicht mir glaube ich aus :smile:

Gruß
Reinhard

4

Hallo Kolri,

Ja hatte den Kalender auch gesehen, aber ich glaube der
unterstützt das „Show Today“ nicht

was ist „Show Today“?
Soll beim UF anzeigen automatisch der Kalender auf heute() stehen?
Macht sie das nicht automatisch?
Dann halt so:

Private Sub UserForm_Activate()
Calendar1.Today
End Sub

und der ist nicht so schön
wie der MonthView Kalender :smile:

Na, dann mußt dir selber einen basteln, geht auch :smile:

Gruß
Reinhard