Herbers Excel-Forum - das Archiv
Textfeld nicht verlassen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ComboBox
- Textfeld nicht verlassen von Andre vom 21.11.2003 10:53:31
- AW: Textfeld nicht verlassen - von q am 21.11.2003 12:14:48
- Alles klar, funktioniert. Danke. o.T. - von Andre am 21.11.2003 12:24:03
- Alles klar, funktioniert. Danke. o.T. - von Andre am 21.11.2003 12:24:03
- AW: Textfeld nicht verlassen - von q am 21.11.2003 12:14:48
 |
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
 |
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
|
Betrifft: Alles klar, funktioniert. Danke. o.T.
von: Andre
Geschrieben am: 21.11.2003 12:24:03
| |