Zellen nach Eintrag bereinigen

[BIGE.l.f.e]

Tabelle1

	A	B	C	D
1	Tag 1	09.09.2016
2		Zugang	Abgang	Menge
3	Äfpel	5	1	4
4	Birnen	10	3	7
5	Tomaten	6	2	4
6
7
8
9	Tag 2	10.09.2016
10		Zugang	Abgang	Menge
11	Äfpel	11		15 (4+11)
12	Birnen	5		12 (7+5)
13	Tomaten	1		5 (4+1)
14
15
16
17	Tag 3	11.09.2016
18
19		Zugang	Abgang	Menge
20	Äfpel			15
21	Birnen			12
22	Tomaten			5
23
24	Quasi morgens am Tag 3 vor irgendwelchen Eingaben
25

Formeln der Tabelle

Zelle Formel D3 =SUMME(B3-C3) D4 =SUMME(B4-C4) D5 =SUMME(B5-C5)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[schauan]

Hallöchen,

In excel gibt es sogenannte Ereignismakros, die auf verschiedene Ereignisse reagieren - z.B. auf Eingaben. Eventuell könnte so etwas funktionieren. Code kommt in das Codemodul des Tabellenblattes.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn nur eine Zelle gewaehlt wurde, dann
If Target.Cells.Count = 1 Then
 'Wenn Eingabe eine Zahl ist und in Spalte B auch eine Zahl steht oder nichts, dann
 If IsNumber(Target.Value) And (IsNumber(Cells(Target.Row, 4).Value) Or Cells(Target.Row, 4).Value = "") Then
   'Wenn es in Spalte B ist, dann Wert addieren
   If Target.Column = 2 Then Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value + Target.Value
   'Wenn es in Spalte C ist, dann Wert subtrahieren
   If Target.Column = 3 Then Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value - Target.Value
 'Ende Wenn Eingabe eine Zahl ist und in Spalte B auch eine Zahl steht oder nichts, dann
 End If
'Ende Wenn nur eine Zelle gewaehlt wurde, dann
End If
End Sub

[BIGE.l.f.e]

naja, ich geb es auf. trotzdem Dank an alle

[Käpt'n Blaubär]

Hallo,

warum willst Du aufgeben?
Wo hakt es denn?
Du hast doch einen fertigen Code bekommen.

[steve1da]

Hola,

weiter gehts dann hier:

http://www.office-loesung.de/p/viewtopic.php?f=166&t=723365

Gruß,
steve1da

[Käpt'n Blaubär]

Hallo Steve,

... dann hat der Bige also die Biege gemacht.
Danke für den Hinweis. Dann brauche ich nun nicht mehr auf einen nächsten Post warten.

[Kuwer]

Hallo,

offensichtlich hat er hier aber doch etwas lernen können: Nämlich das Problem so zu beschreiben, dass es möglichst viele potentielle Antworter auch verstehen.
Hier hat es, glaub ich, nur Edgar verstanden.

Gruß Uwe

[Käpt'n Blaubär]

Hallöchen Uwe,

offensichtlich hat er hier aber doch etwas lernen können: Nämlich das Problem so zu beschreiben, dass es möglichst viele potentielle Antworter auch verstehen.

Hier hat es, glaub ich, nur Edgar verstanden.

... dann hat die Sommerfrische, oder ... *hust* ... der frische Sommer bei uns ja wenigstens ein wenig Verhaltensänderung gebracht.
Sowas nennt man glaube ich landsläufig eine "gute Erziehung"  :05:

[schauan]

Hallo Uwe,

das mit dem anderen Forum seh' ich nicht ganz so. In der anderen Lösung vermisse ich das Übernehmen der Werte vom Vortag Dort wird doch einfach nur eine Formel eingetragen, und wozu man die gleiche Formel bei jedem Öffnen erneut eintragen muss erschließt sich mir nicht.
Nicht dass der BIGE meinen Code hier genommen und sich drüben bedankt hat Oder steh ich irgendwie auf'm Schlauch ?

[Kuwer]

Hallo André,

das mit dem anderen Forum seh' ich nicht ganz so. In der anderen Lösung vermisse ich das Übernehmen der Werte vom Vortag Dort wird doch einfach nur eine Formel eingetragen, und wozu man die gleiche Formel bei jedem Öffnen erneut eintragen muss erschließt sich mir nicht.
Nicht dass der BIGE meinen Code hier genommen und sich drüben bedankt hat Oder steh ich irgendwie auf'm Schlauch Huh ?

verzeih mir bitte, Dein Code bewirkt das Gleiche wie drüben.  :23:
Jedoch stehen eben keine Formeln in Dx wie es der TE gerne wollte. ;)

bei

igMenge.FormulaR1C1 = "=" & igMenge & "+RC[-2]-RC[-1]"

wird schon jedes Mal das aktuelle Formelergebnis fix zur neuen Formel eingefügt. ;)

Gruß Uwe