Hi...
Leg dir auf die Tabelle einen CommandButton (Menü Entwicklertools--Einfügen---Active X Steuerelement--Befehlsschaltfläche)
Darauf einen Doppelklick und folgenden Code einfügen...
Code:
Private Sub CommandButton1_Click()
Dim I
I = Cells(ActiveCell.Row, 2).Value
Cells(ActiveCell.Row, 2).Value = I + ActiveCell.Value
End Sub
Dann markierst die Zelle mit dem gewünschten Wert in der entspechenden Zeile und klickst auf den CommandButton... (Der Entwurfsmodus, der sich auch im Menü Entwicklertools befindet, muss deaktiviert sein)
Man kann das auch mit einem Doppelklick lösen, aber viele Wege führen nach Rom....
Tschö