Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automaticshes addieren in Zellen

Forumthread: Automaticshes addieren in Zellen

Automaticshes addieren in Zellen
26.07.2002 13:44:39
Thorsten
Hallo,

gibt es eine Möglichkeit in Zellen zu addieren ohne das diese überschrieben werden.

Bsp. In einer Zelle steht der wert 5 und ich gebe nun den Wert 2 ein so möchte ich das automatisch dort 7 erscheint.

Vielen Dank und schon jetzt ein schönes Wochenende

Thorsten

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Automaticshes addieren in Zellen
26.07.2002 14:58:25
Ralf Sögel
meinst du das so?

Option Explicit
Dim oldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim newValue As Variant
Application.EnableEvents = False
newValue = ActiveCell.Value
ActiveCell.Value = oldValue + newValue
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
oldValue = Target.Value
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige