Aufsummieren einer Excel-Zelle durch Eingabe in eine andere Zelle

13/11/2009 - 23:33 von SchwarzWeißGrafikFärben | Report spam
In Excel 2003 suche ich nach einer Möglichkeit, durch Eingaben von €-Betràgen
in eine Zelle diese Betràge in einer anderen Zelle aufzusummieren. Schema:


Zelle1 Zelle2
Eingabe Aufsummierung (Zelle2:=Zelle2+Zelle1)


Vielen Dank für Ihre Vorschlàge.
 

Lesen sie die antworten

#1 Andreas Killer
14/11/2009 - 09:08 | Warnen spam
SchwarzWeißGrafikFàrben schrieb:

In Excel 2003 suche ich nach einer Möglichkeit, durch Eingaben von €-Betràgen
in eine Zelle diese Betràge in einer anderen Zelle aufzusummieren. Schema:


Das geht nur mit VBA.

Der Code muss in das Codemodul der Tabelle, wie's geht steht hier:
http://www.online-excel.de/excel/si....php?fD#s4

Andreas.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
'Durchlaufe alle Zellen die geàndert wurden
For Each R In Target
'Welche Zelle war es?
Select Case Target.Address
'Zelle A1
Case Range("A1").Address
'Ereignisse aus, sonst rufen wir uns selber auf
Application.EnableEvents = False
'Zelle B1 = B1 + A1
Range("B1") = Range("B1") + Range("A1")
'Ereignisse an, damit diese Routine bei der nàchsten _
Änderung wieder aufgerufen wird
Application.EnableEvents = True
End Select
Next
End Sub

Ähnliche fragen