wampier,
ik denk dat ik het gevonden heb. volgende code doet wat ik wil
ik bekijk waar er nog vernieuwing of verandering nodig is![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
ik denk dat ik het gevonden heb. volgende code doet wat ik wil
Code:
Sub kn_Click()
Dim beleg As Variant
beleg = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(0, 2).Value = beleg & " " & kn.Caption
parent.updatebox
End Sub
ik bekijk waar er nog vernieuwing of verandering nodig is