textbox automatisch updaten

[sharda002]

Ik heb een textbox welke de waarde van de een cell weergeeft.(B9)
als de cellwaarde veranderd veranderd de textbox niet direct maar pas nadat ik het userform opnieuw activeer.

hoe los ik dit op?? zodat dit direct meeveranderd

alvast bedankt
John

Private Sub UserForm_activate()
On Error Resume Next

TextBox1.Value = "€  " & Sheets("offnr").Range("b9")
End Sub

 

[HSV]

Met 'ShowModel false'.

Private Sub Worksheet_Change(ByVal Target As Range)
If UserForm1.Visible Then
  UserForm1.TextBox1 = Sheets("offnr").Range("B9")
 End If
End Sub

 

[sharda002]

Harry,

hartstikke bedankt hier was ik al 4 dagen mee bezig

helemaal Top

groet

John