Problem mit Setfocus im UserForm
23.09.2006 15:34:59
Björn
ich habe ein Problem mit SetFocus.
Ich habe in einer UserForm 2 Frames. In Frame 2 befindet sich eine Combobox, die mittels einer Funktion (bei Combox_Enter()) gefüllt wird. Wenn die Combox nach der Funktion leer ist, soll eine Fehlermeldung ausgeben werden und beim anschließenden Click in der Fehlermeldung auf "OK" soll dann in Frame 1 in eine andere Combox gesprungen werden. Funktioniert aber leider nicht und ich weiß nicht warum ;(
Hier der Code:
Private Sub ComboBox2_Enter()
Call ListeFuellen
If ComboBox2.ListCount = 0 Then
If MsgBox("BlaBla", vbExclamation + vbOKOnly, "Fehler") = 1 Then
ComboBox1.SetFocus
End If
End If
End Sub
Dank euch
Björn