tekst uit textbox kopieren

[michel]

Hoe kan ik de tekst, die in een textbox staat, kopieren naar bv. cel a1.
De macro moet ook aan die textbox gekoppeld worden.
Dus m.a.w. als je op de textbox klikt moet de tekst hieruit naar
cel A1 gekopieerd worden.

Bij voorbaat dank
Michel

[wie.niet]

"michel" <mhui...@planet.nl> schreef in bericht
news:ahgg93$lk$1...@reader12.wxs.nl...

Deze code kopieert de waarde als je DUBBELKLIKT (op de tekstbox)

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Range("A1").Value = TextBox1.Value
End Sub

Deze kopieert als je je muisknop LOSLAAT (als je boven de tekstbox staat)

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Range("A1").Value = TextBox1.Value
End Sub

Deze kopieer als je de muis VERPLAATST (wel boven de tekstbox verplaatsen)

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Range("A1").Value = TextBox1.Value
End Sub

en deze code gewoon als er iets verandert aan je textbox

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub