wampier,
ik denk dat ik het gevonden heb. volgende code doet wat ik wil
ik bekijk waar er nog vernieuwing of verandering nodig is
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