Forum Discussion
Excel
In excel we have just two cells. Enter a value in cell #1 and it's value is then added to the current value in cell #2. Then cell #1 is zeroed out, and the value in Cell#2 remains as is... Now enter ...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A1")
If Not Application.Intersect(Target, rngBereich) Is Nothing Then
Target.Offset(1).Value = Target.Offset(1).Value + Target.Value
Target.Value = ""
End If
End SubMaybe with these lines of code. In the attached file you can enter a number in cell A1 and cell A2 is updated accordingly.
Thank you very much. Now to learn VBA. Be well.