Hier moet je al een beetje verder mee kunnen:
Sub Macro1()
' Sub OnClick();SubOnChange() Sheets("Blad1").Select
ActiveCell.FormulaR1C1 = "test1" '
hier vindt je zelf wel een oplossing om de invoer te geven Sheets("Blad2").Select
Range("A1").AddComment
Range("A1").Comment.Visible = True
'eventueel False Range("A1").Comment.Text Text:=Sheets("Blad1").Range("A1").Value
End Sub
Hier is de wol, probeer er maar zelf een paar sokken mee te breien
SoftAid