Textfeld nicht verlassen
21.11.2003 10:53:31
Andre
ich möchte einen Eintrag einer ComboBox abfragen, so weit so gut. Ich möchte aber bei positivem Ergebnis dieser Abfrage die ComboBox nicht verlassen.
Mit SetFocus funktioniert´s so nicht! Weiß jemand Rat?
Hier der Code:
Private Sub Personal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [ISNA(VLOOKUP(j1,Personal!B:B,1,0)=TRUE)] Then GoTo 1
If Personal = "" Then GoTo 2
Range("j2").Value = Personal
Exit Sub
1:
MsgBox ("Sie können nur Mitarbeiterinnen aus der Auswahl zuweisen!")
Personal.SetFocus
End Sub
Gruß Andre
Anzeige