Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Addieren von Zellwerten

Addieren von Zellwerten
03.05.2003 16:41:50
Thomas

Ich möchte Zellwerte addieren, aber nicht so ganz einfach.

In Zelle A1 steht z.B. der Wert 0
Wenn ich nun in B1 eine 3 eingebe, soll dort in A1
die Summe 0 + 3, also 3 stehen.
Jetzt gebe ich in B1 eine 2 ein, in A1 soll der alte Wert 3
also mit der 2 Addiert werden so dass dort 5 steht.
Gebe ich in A1 die Summenformel =A1+B1 ein, bekomme ich natürlich einen Zirkelbezug.

Kann ich das umgehen so dass A1 immer aktualisiert wird???



2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Addieren von Zellwerten
03.05.2003 17:14:04
Ramses

Der Code muss in das Klassenmodul wo du das haben willst:


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 1 Then
    Target.Offset(0, -1) = Target.Offset(0, -1) + Target.Value
End If
'Damit springt er automatisch wieder in die Zelle
'wird der Wert in der Zelle nicht mehr geändert
'kannst du wieder normal aus der zelle rausgehen
Target.Select
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Addieren von Zellwerten
03.05.2003 18:05:49
Thomas

Danke, Rainer, klappt prima!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige