textbox probleem

[sharda002]

wie kan mij helpen?
Ik heb een aantal textboxen welke de waarde weergeeft van bepaalde cellen in een werkblad
Deze cell van het werkblad geeft een totale waarde van een som en is variabel.

Nu word de waarde keurig netje in de textbox weergegeven maar als de waarde verander moet ik de textbox steeds opnieuw activeren.

Hoe kan je een textbox steeds laten updaten

Private Sub UserForm_activate()
On Error Resume Next
'debitueren
TextBox1.Value = "€  " & Sheets("offnr").Range("b9")
TextBox7.Value = "€  " & Sheets("offnr").Range("b10")
TextBox3.Value = "€  " & Sheets("offnr").Range("b11")
TextBox6.Value = "€  " & Sheets("offnr").Range("b12")
'crediteuren

TextBox4.Value = "€  " & Sheets("offnr").Range("b13")
TextBox9.Value = "€  " & Sheets("offnr").Range("b15")
TextBox8.Value = "€  " & Sheets("offnr").Range("b14")

End Sub

 

[bhiemstra]

Beste Sharda,

Helaas heb ik geen oplossing voor dit probleem, maar ben net als jij erg benieuwd naar de oplossing. Heb je inmiddels een oplossing gevonden?

Met vriendelijke groeten,

Bart

 

[sharda002]

Hoi bart,

ja is opgelost ik heb dit toegevoegd

 Private Sub TextBox3_Change()
UserForm_activate
End Sub

Private Sub TextBox4_Change()
UserForm_activate
End Sub

Private Sub TextBox1_change()
UserForm_activate
End Sub

Private Sub TextBox6_Change()
UserForm_activate
End Sub

Private Sub TextBox7_Change()
UserForm_activate
End Sub

Private Sub TextBox8_Change()
UserForm_activate
End Sub

Private Sub TextBox9_Change()
UserForm_activate
End Sub

 

[spaarie]

Beste Sharda,

Heb je een voorbeeld bestandje?

Anders dit ff proberen:

Private Sub Userform_[COLOR="#FF0000"]Change(ByVal Target As Range)[/COLOR]
'debitueren
TextBox1.Value = "€  " & Sheets("offnr").Range("b9")
TextBox7.Value = "€  " & Sheets("offnr").Range("b10")
TextBox3.Value = "€  " & Sheets("offnr").Range("b11")
TextBox6.Value = "€  " & Sheets("offnr").Range("b12")
'crediteuren
TextBox4.Value = "€  " & Sheets("offnr").Range("b13")
TextBox9.Value = "€  " & Sheets("offnr").Range("b15")
TextBox8.Value = "€  " & Sheets("offnr").Range("b14")
End Sub

EDIT: Ik heb niks gestuurd aangezien het zelf opgelost is