UserForm Loop beenden...
26.09.2012 11:40:15
Ina
ich habe eine UserForm mit einer Loop-Anweisung zum Anzeigen der Uhrzeit.
Nun soll die Loop-Schleife beendet werden, wenn die Userform geschlossen wird (entweder über CommandButton1 oder wenn Makro ausgeführt wird).
Nur, das klappt irgendwie nicht. Wer kann mir da weiterhelfen?
LG Ina
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
'Datum in der Textbox 11 anzeigen...
Dim aktuellesDatum As Date
aktuellesDatum = Now '- 15
TextBox11.Text = Format(aktuellesDatum, "dd.mm.yyyy")
'Uhrzeit in der Textbox 10 anzeigen...
Do
DoEvents
TextBox10.Value = Time
Loop
End Sub
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "1 Kopie"
Makro1
Unload Me
End Select
'Unload Me
End Sub
MsgBox "Hallo Ina"
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub