Excel- Wert zu vorigen Wert addieren?

Hallo Leute,

ich habe ein Problem in Excel 2010. Am besten erkläre ich meine Frage anhand eines Beispiels.

Ich möchte, dass in Zelle A1 immer der Wert 0 ist. Wenn ich zum Beispiel 10 in A1 eingebe, dann soll dieser Wert zu B1 addiert werden und A1 soll wieder null werden. Dabei soll B1 nie gelöscht werden, sondern jeder neue Wert, welcher in A1 eingegeben wird soll addiert werden.

Danke schonmal für eure Antworten

Answer 1

[schmiddi1967]

Hey, gehe mal in deinem Tabellenblatt mit ALT+F11 in das VBA Modul und gebe da folgenden Code ein, das sollte das sein was du suchst.

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Range("A1")) Is Nothing Then    
Application.EnableEvents = False    
Cells(1, 2) = Cells(1, 2) + Cells(1, 1)  
End If
Range("A1").Select    
ActiveCell.FormulaR1C1 = "0"    
Range("B1").Select  
Application.EnableEvents = True
End Sub

Eventuell musst du deine Mappe dann noch als Excek datei mit Makros xlms Datei speichern. Ich weiß ja nicht was für eine du jetzt hast.

Hilft dir das so weiter?

Answer 2

[Harvix]

Die Antwort wird dir jetzt zwar nicht besonders viel helfen aber über einen "normalen" Weg kannst du das Problem nicht lösen. Das einzigste was mir hier einfällt, wäre ein Makro zu schreiben. Einfach mal googlen :)