0 leden en 1 gast bekijken dit topic.
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" And IsNumeric(Target) Then Range("A2") = Range("A2") + Range("A1") Range("A1").ClearContentsEnd IfEnd Sub
Na enige tijd zoeken heb ik het gevonden waar ik de code moest inplakken.