List_Change-Ereignis abfangen
23.09.2003 17:34:32
Steffan
ich habe folgendes Problem, dass ich nicht gelöst kriege:
Ein UF hat u.a. als Inhalt eine Textbox und eine Listbox.
Beim Ändern der Listbox (anderer Eintrag wird ausgewählt) soll überprüft werden, was in der Textbox steht und wenn diese leer ist, soll eine Änderung des Listindex nicht zugelassen werden.
Das Problem ist, dass das beim Zurücksetzen des Listindex wieder ein Listboxereignis auslöst wird usw. usf. Nach drei Durchläufen ist damit Schluß, aber der Listindex wird nicht auf den ursprünglichen Wert zurückgesetzt!
Hat jemand einen Tip, wie ich das Problem lösen kann?
Danke im Vorraus
Steffan.
Mein Testcode:
Dim LI As Integer
Private Sub ListBox1_Change()
If Me.TextBox1.Text = "" Then
Me.ListBox1.ListIndex = LI
MsgBox "leer"
Else
LI = Me.ListBox1.ListIndex
End If
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem "eins"
Me.ListBox1.AddItem "zwei"
Me.ListBox1.AddItem "drei"
Me.ListBox1.ListIndex = 0
LI = 0
End Sub