Textfeld nicht verlassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Textfeld nicht verlassen
von: Andre
Geschrieben am: 21.11.2003 10:53:31

Guten Morgen,

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
Bild


Betrifft: AW: Textfeld nicht verlassen
von: q
Geschrieben am: 21.11.2003 12:14:48

Hallo,
dazu ist der parameter Cancel da. Es ist von typ boolean. Wenn du willst, das das control den focust nicht vereliert, dann : Cancel = True :-)
q


Bild


Betrifft: Alles klar, funktioniert. Danke. o.T.
von: Andre
Geschrieben am: 21.11.2003 12:24:03




Bild

Beiträge aus den Excel-Beispielen zum Thema " Textfeld nicht verlassen"