SetFocus
04.02.2004 13:54:55
Monika
ich habe ein Problem:
in einer UF frage ich mit zwei Textboxen ein Anfangs- und ein Enddatum ab.
Bei Verlassen der zweiten Textbox wird geprüft, ob das Enddatum nicht kleiner als das Anfangsdatum ist.
Ist dies der Fall, soll eine MSG-Box erscheinen und der Fokus wieder auf die zweite Textbox gestellt werden.
Die MSG-Box erscheint zwar, der Fokus wird jedoch auf die nachfolgende Listbox gesetzt.
Was ist an dem nachstehenden Code falsch?
Vielen Dank für Eure Hilfe!
Gruß Moni
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value >= TextBox1.Value Then
beginn = CDate(TextBox1.Value)
ende = CDate(TextBox2.Value)
TextBox3.Value = atage(beginn, ende, ListBox1.Value)
TextBox4.Value = ende - beginn + 1
Else
MsgBox "Enddatum kann nicht vor Anfangsdatum liegen"
TextBox2.SetFocus
End If
End Sub