Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Antw:Werte in einer Zelle addieren
« 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
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