Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe in Zelle addieren

Summe in Zelle addieren
27.11.2004 16:33:02
Dieter
Hallo Forum,
ich habe in mehreren Zellen A25 , B25 , C25 u. D25 manuell Werte eingetragen .
Zum Bsp. steht in einer Zelle die Zahl 5 nun kommt der Wert 6 hinzu , ist es möglich das der Wert 6 zu dem Wert 5 hinzu addiert wird damit nach der Eingabe den Wert 11 ausgibt.
Gruss Dieter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe in Zelle addieren
Ulf
Ja, aber nicht mit Formel, da ist VBA angesagt.
Ulf
AW: Summe in Zelle addieren
27.11.2004 16:43:00
Hajo_Zi
Hallo Dieter,
in VBA unter der Tabelle.
Option Explicit
Dim OldTarget As Double

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) = "A25" Or Target.Address = "B25" Or Target.Address = "C25" Or Target.Address = "D25" Then
Application.EnableEvents = False
Target = Target + OldTarget
Application.EnableEvents = True
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldTarget = Target
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Summe in Zelle addieren
27.11.2004 17:00:34
Dieter
Hallo Hajo, erst mal Dane für deine rasche Hilfe . Leider klappt es nur bei der Zelle A25 hast Du eine Erklärung ?
Gruss Dieter
AW: Summe in Zelle addieren
Ulf
If Target.Address = "$A$25" Or Target.Address = "$B$25" Or Target.Address = "$C$25" Or Target.Address = "$D$25" Then
Ulf
AW: Summe in Zelle addieren
27.11.2004 17:09:07
Hajo_Zi
Hallo Ulf,
ich hatte Target.Address(False, False) geschrieben, damit sind keine Absolut Zeichen notwendig.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Summe in Zelle addieren
Boris
Hi Hajo,
...aber nur für die erste Zelle - und daher ging´s danach auch nicht mehr.
Grüße Boris
AW: Summe in Zelle addieren
27.11.2004 21:02:33
Hajo_Zi
Hallo Boris,
siehe hier
https://www.herber.de/forum/messages/524295.html
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Danke euch beiden Ulf u. Hajo
27.11.2004 17:09:29
Dieter
Hallo nun geht's
Gruss Dieter
AW: Summe in Zelle addieren
27.11.2004 17:12:50
Hajo_Zi
Hallo Ulf,
mir ist auch gerade aufgefalle ich habe das False bei den restlichen vergessen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Summe in Zelle addieren
27.11.2004 17:06:54
Hajo_Zi
Hallo Dieter,
ich hatte es auch nur mit einer Zelle geprüft. Endschuldigung.
Option Explicit
Dim OldTarget As Double

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("A25:D25")
If Target.Count > 1 Then Exit Sub
If Not Intersect(RaBereich, Target) Is Nothing Then
Application.EnableEvents = False
Target = Target + OldTarget
Application.EnableEvents = True
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
OldTarget = Target
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Summe in Zelle addieren
27.11.2004 17:08:02
Hajo_Zi
Hallo Dieter
es fehlt nch eine Zeile.
Option Explicit
Dim OldTarget As Double

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("A25:D25")
If Target.Count > 1 Then Exit Sub
If Not Intersect(RaBereich, Target) Is Nothing Then
Application.EnableEvents = False
Target = Target + OldTarget
Application.EnableEvents = True
End If
Set RaBereich = Nothing
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
OldTarget = Target
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige