Formel für Zahl kumulieren

[visionsos]

Hallo zusammen,

bin neu hier und bräuchte bitte Hilfe. Muss künftig mehr Excel-Tabellen erstellen.

Folgendes Problem:
Ich gebe jeden Monat eine neue Zahl in eine Zelle ein und diese soll sich in einer anderen Zelle kumulieren.
Aber nicht 2 Zellen und eine Summe in einer 3. Zelle bilden, sondern eben nur bestehend aus 2 Zellen.

Also Monatszahl = 100 im Januar
dann im Februar gebe ich neue Zahl ein 150

somit soll die zweite Zelle jetzt automatisch 250 anzeigen

Wie lautet die Formel bitte.

Besten Dank im Voraus.
visionsos

[Klaus-Dieter]

Hallo,

meinst du so etwas?

Tabelle1

	A	B	C
2	Januar	100	100
3	Februar	150	250
4	März
5	April

Formeln der Tabelle

Zelle Formel C2 =SUMME(B$2:B2) C3 =SUMME(B$2:B3)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[Peter]

Hallo,

das geht mit einer Formel nicht - da müsste man mit VBA ran.

Der folgende Code muss in das Modul des entsprechenden Tabellenblattes. Überwacht werden die Zellen A1 und C1.

Wenn in C1 ein Wert eingetragen wird erfolgt die Summierung in A1.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Rainberg
    Application.EnableEvents = False
    If Target.Address = "$A$1" Or Target.Address = "$C$1" Then
        Range("A1").Value = Range("A1").Value + Range("C1").Value
    End If
    Application.EnableEvents = True
End Sub

Allerdings halte ich von dieser Vorgehensweise nicht viel, da es keinerlei nachträglich Kontrolle der Eingaben gibt - was machst du z.B. bei einem Tippfehler?

[visionsos]

Hallo Peter,

danke für die schnelle Antwort.

Gruß
Erika

[visionsos]

Hallo Klaus-Dieter,

nicht ganz, ich gebe jede neue Monatszahl in die selbe Zelle ein und dann muss in der 2. Zelle die Summe kumulieren

Danke, bin für jeden Tip dankbar

das mit diesem Code eingeben, kann ich nicht - mache irgendwas falsch
Gruß
Erika

[Klaus-Dieter]

Hallo Erika,

wie Peter schon geschrieben hat, ein ganz schlechter Weg, weil nicht nachvollziehbar.

[visionsos]

....  danke Dir Klaus-Dieter

das heißt ich muss weiterhin zwei Werte eingeben

Viele Grüße
Erika

[Peter]

Hallo,

Ich gebe jeden Monat eine neue Zahl in eine Zelle ein

verstehe ich das richtig, dass du diese Aktion einmal im Monat durchführst?

Wenn ja, dann würde ich in diesem Fall weder mit einer Formel noch mit einem Code arbeiten sondern die Werte einfach händisch ändern.

Aber ich vermute mal, dass die Aktion etwas öfters stattfindet.

Wo hast du Probleme mit dem Code? Ich habe zwar keine große Ahnung von VBA (der Code ist auch nicht von mir) aber der Code funktioniert wenn er in das Modul des entsprechenden Tabellenblattes steht:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

[visionsos]

Hallo Peter,

danke nochmals für die Mühe.
Wir haben es wirklich geschafft, mit vereinten Kräften.

Ich muss dies in eine Liste einfügen, die komplex ist, auch mit anderen normalen Excel-Formeln. (Deshalb habe ich auch die Kontrolle über die 
Eingabe, weil noch andere Folgesummen gebildet werden müssen)

Also für 2 Zellen, wie gewünscht in einer Zeile funktioniert das jetzt.

Aber jetzt muss das spaltenmäßig noch funktionieren, d.h. ich habe ca 100 Zeilen und die Spalte  K muss eingegeben werden und die Spalte M muss
kumulieren. Wie heißt die Formel dann???????

Hoffe ich erkläre es einigermaßen verständlich.

Würdest mir echt nochmal super helfen - besten Dank

Gruß
Erika

[Peter]

Hallo,

es wäre besser gewesen wenn du das bereits im ersten Posting geschrieben hättest, dass es nicht um eine Zelle sondern um einen größeren Bereich geht.

Hilft dir dieser Code weiter:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'http://www.office-loesung.de/ftopic142591_0_0_asc.php#593835
    Dim rngZ As Range

    If Not Intersect(Range("K1:K100"), Target) Is Nothing Then
        Application.EnableEvents = False
         For Each rngZ In Target
            rngZ.Offset(0, 2).Value = rngZ.Offset(0, 2).Value + rngZ.Value
         Next rngZ
        Application.EnableEvents = True
    End If
End Sub

Den Bereich K1:K100 bitte auf deine Tabelle anpassen.