Textboxen mit aktuellen Daten minus einem Festwert
14.12.2008 11:07:00
Lenhard
Untenstehendes VBA-Skript habe ich mir für Textboxen in einem Userform geschrieben.
Bei meinen Recherchen im Archiv finde ich leider keine Antworten...
Ich habe meine Fragen hinter den betreffenden Zeilen geschrieben, aber der Übersicht halber hier noch mal: Die TextBox1 soll das aktuelle Datum -50 Jahre, Textbox2 soll die aktuelle Uhrzeit -1 Stunde und die TextBox3 soll die aktuelle Zeit -30 Minuten anzeigen, wenn das UserForm geöffnet bzw. aktiviert wird.
Private Sub UserForm_Activate()
With TextBox1
.Text = Format(Date, "DD.MM.YYYY") 'Dieses Datum soll -5o Jahre angezeigt werden
End With
With TextBox2
.Text = Format(Time, "hh:mm") 'Diese Zeit soll -1 Stunde angezeigt werden
End With
With TextBox3
.Text = Format(Time, "hh:mm") 'Diese Zeit soll -30 Minuten angezeigt werden
End With
End Sub
Hat da jemand Antworten? Danke!
Viele Grüße aus dem hohen Norden
Lenni