Laufende Uhr in UserForm...
03.10.2012 10:06:18
Waldtraud
ich habe in meiner UserForm eine laufende Uhr in TextBox10.
Leider kann ich die UserForm nicht komplett beenden (liegt wohl an eben dieser Uhr).
Was mache ich falsch?
Wer kann mir helfen und wenn möglich, meinen Codeschnipsel umschreiben?
Private Sub UserForm_Activate()
'ComboBox mit Werten füllen...
With Me.ComboBox1
.AddItem "1 Kopie"
.AddItem "2 Kopie"
.AddItem "3 Kopie"
.AddItem "4 Kopie"
.AddItem "5 Kopie"
.ListIndex = -1
End With
'Uhrzeit in der Textbox 10 anzeigen...
Do
DoEvents
TextBox10.Value = Time
Loop
'Datum in der Textbox 11 anzeigen...
Dim aktuellesDatum As Date
aktuellesDatum = Now '- 15
TextBox11.Text = Format(aktuellesDatum, "dd.mm.yyyy")
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub