SetFocus werkt niet

[GuntherVD]

Dit is mijn code:

Private Sub txt_personeelsnummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  'Kijken of het personeelsnummer bestaat
  Set FoundRange = Sheets("Personeel").Columns(1).Find(txt_personeelsnummer)
  If FoundRange Is Nothing Then
    MsgBox ("Personeelsnummer " & txt_personeelsnummer.Text & " bestaat niet!")
    txt_personeelsnummer.Text = ""
    txt_personeelsnummer.SetFocus
  End If
End Sub

onderaan de SetFocus werkt niet, ook als ik de naam van de userform ervoor zet werkt het niet. iemand een idee waarom?
Bekijk bijlage Administratie.xlsm

 

[Cobbe]

Test eens met deze:

Private Sub txt_personeelsnummer_Change()
 'Kijken of het personeelsnummer bestaat
  Set FoundRange = Sheets("Personeel").Columns(1).Find(txt_personeelsnummer)
  If FoundRange Is Nothing Then
    txt_personeelsnummer.Text = ""
    txt_personeelsnummer.SetFocus
    MsgBox ("Personeelsnummer " & txt_personeelsnummer.Text & " bestaat niet!")
  End If
End Sub

 

[HSV]

Werkt dit beter?

Private Sub txt_personeelsnummer_Change()

I.p.v. Exit.

 

[GuntherVD]

Werkt dit beter?

Private Sub txt_personeelsnummer_Change()

I.p.v. Exit.

Dat werkt inderdaad beter bedankt!