Cursor plaatsen in TextBox

[CorVerm]

Beste mensen,
Ik wil, nadat de TextBox is leeggemaakt en het autofilter is gedeactiveerd, de cursor in de TextBox laten plaatsen.
Iets als: TextBox. SetFocus wekt niet.
Heeft iemand de oplossing?

Private Sub CommandButton5_Click()
TextBox1.Value = ""
ActiveSheet.Range("$A$4:$K$140").AutoFilter Field:=4
 ActiveSheet.Range("$A$4:$K$140").AutoFilter Field:=7
  ActiveSheet.Range("$A$4:$K$140").AutoFilter Field:=8
   ActiveSheet.Range("$A$4:$K$140").AutoFilter Field:=11
 
End Sub

 

[OctaFish]

Me.Textbox1.Setfocus zou het moeten doen. Waarom werkt dat bij jou niet?

 

[Ginger]

Ik zeg hetzelfde als Octa... Nog even een testje gedaan met een Form en een Textbox en daar deze procedure aan een button verbonden...

Private Sub CommandButton1_Click()
temp = TextBox3.Value
TextBox3.Value = ""
ActiveCell.Value = temp
TextBox3.SetFocus
End Sub

Alleen als ik de "TextBox3.SetFocus" voorzie van een voorloop quote'je komt de cursor niet terug. Maar in de getoonde vorm dus wel. Kan je niet je bestand als bijlage plaatsen?

 

[HSV]

Misschien staat de textbox op het werkblad, en daar heb je niet de SetFocus tot je beschikking.

Private Sub CommandButton5_Click()
If AutoFilter.FilterMode Then ShowAllData
 With TextBox1
  .Value = ""
  .Activate
 End With
End Sub

 

[CorVerm]

@Harry,
Dat is de goeie. Inderdaad staat de tekstbox op het werkblad. Het werkt als een trein.

Ook Michel (leuk je weer "ontmoet" te hebben) en Ginger hartelijk dank.