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

Werte addieren

Forumthread: Werte addieren

Werte addieren
11.10.2007 09:14:16
Jan
Guten Morgen,
habe da mal eine Frage meine Tabelle enthält in C2 einen Wert zu diesem Wert soll ein Wert aus D2 addiert werden. In C2 soll der wert als Summe erhalten bleiben, der Wert in D2 wird immer neu eingegeben. Wie geht sowas? Vorab vielen Dank für die Hilfe!

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte addieren
11.10.2007 09:20:00
c0bRa
Hio...
So gehts:
Code aus Microsoft Excel Objekt Tabelle1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("D2")) Is Nothing Then
        Range("C2").Value = Range("C2").Value + Range("D2").Value
    End If
End Sub
Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Werte addieren
11.10.2007 09:38:37
Jan
Hallo c0Bra,
vielen Dank - funktioniert perfekt!

AW: Werte addieren
11.10.2007 09:47:00
Jan
Nochmal ich, was muss ich ändern wenn das makro für das ganze Tabellenblatt gilt bzw. für die Spalten C2 bis C39 und D2 bis D39.
Danke!

AW: Werte addieren
11.10.2007 09:53:54
Jan
Nochmal ich, was muss ich ändern wenn das makro für das ganze Tabellenblatt gilt bzw. für die Spalten C2 bis C39 und D2 bis D39.
Danke!

Anzeige
AW: Werte addieren
11.10.2007 09:56:00
Hajo_Zi
Hallo Jan,
man sollte schon alle Antworten lesen, dann erübrigen sich oft Rückfragen.
Gruß Hajo

so gehts ...
11.10.2007 09:57:07
Matthias
Hallo
Um beim Code von c0bRa zu bleiben so:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("D2:D39")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + Target.Offset(0, 0).Value
Application.EnableEvents = True
End If
End Sub


Userbild

Anzeige
AW: so gehts ...
11.10.2007 09:59:22
Hajo_Zi
Hallo Matthias,
was nur die meisten Vergessen. Excel hat auch die Möglichkeit mehrere Zellen mit einmal zu füllen.
Gruß Hajo

AW: so gehts ...
11.10.2007 11:00:00
Jan
Hallo Matthias, danke für die Hilfe jetzt passt alles!

bitteschön ;o) oT
11.10.2007 11:05:06
Matthias

Anzeige
AW: Werte addieren
11.10.2007 09:33:46
Matthias
Hallo
Code ins entsprechende Tabellenblatt kopieren
Dabei wird gleich geprüft, ob es auch numerische Wete sind.
Steht also keine Zahl in einer der beiden Zellen passiert nichts
Nur bei Änderung der Zelle D2 wird das Makro ausgeführt

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Range("C2")) And IsNumeric(Range("D2")) Then
If Not Intersect(Target, Range("D2")) Is Nothing Then
Range("C2") = Range("D2") + Range("C2")
Range("C2") = Range("C2")
End If
End If
End Sub


Beispielmappe
https://www.herber.de/bbs/user/46676.xls
Userbild

Anzeige
die Zeile weglassen Range("C2") = Range("C2") oT
11.10.2007 09:46:59
Matthias
;

Beliebteste Forumthreads (12 Monate)

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