Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: anja am November 24, 2011, 14:34:27 Nachmittag

Titel: Werte in einer Zelle addieren
Beitrag von: anja am November 24, 2011, 14:34:27 Nachmittag

Hallöchen,

ich bräuchte ein Lösung für folgendes Problem.

Ich würde gerne in Zelle B10 einen Wert eingeben, welcher anschließend in Zelle C10 hinzuaddiert wird. Beispiel:
Eingabe in B10 = 5 --> Zelle C10 = 5
Eingabe in B10 = 3 --> Zelle C10 = 8
Eingabe in B10 = 11 --> Zelle C10 = 19
usw.

Lässt sich das mit Excel lösen?

danke

Anja

Titel: Antw:Werte in einer Zelle addieren
Beitrag von: UScher am November 24, 2011, 15:21:11 Nachmittag

Hallo Anja

das lässt sich mit VBA lösen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B10")) Is Nothing Then Exit Sub

Range("C10").Value = Range("C10").Value + Range("B10").Value
End Sub

Allerdings solltest Du dann die Werte in B10 auf Gültigkeit abfragen, sonst bekommst Du eine Fehlermeldung, wenn z. Bsp. ein Text eigegeben wird.

mfg
UScher

Titel: Antw:Werte in einer Zelle addieren
Beitrag von: Anja am November 24, 2011, 15:37:53 Nachmittag

Hallo Uscher,

vielen Dank.... habe den Code eingegeben und es funktioniert bestens.

Lieben Dank

Anja