Zellen-vergleichen_Zahlen-ausgleichen

Hallo zusammen,
ich habe eine Aufgabe, die ich alleine nicht gelöst kriege, und wollte mal um Hilfe fragen.
Ich habe in drei Zellen Zahlen, z.B:
D11: 0 (Montag)
E11: 20 (Dienstag)
F11: 15 (Mittwoch)
G11: 0 (Donnerstag)
H11: 0 (Freitag)
Jede Zahl steht dabei für eine Ausgabe in für einen Wochentag.
Die Summe über die drei soll gleichbleiben, also in diesem Fall 35.
Meine Planung sieht also vor, immer Dienstags 20 auszugeben und 15 Mittwochs.
Das sind meine "ordentlichen" oder "geplanten" Ausgaben.
Jetzt würde ich gerne, wenn ich z.B. am Montag (D10) schon 30 ausgeben muss, dieser Betrag für die folgenden Tage berücksichtigt wird.
Diese "außerordentlichen" Ausgaben trage ich ein in die Zellen:
D10: 30 (Montag)
E10: 0 (Dienstag)
F10: 0 (Mittwoch)
G10: 0 (Donnerstag)
H10: 0 (Freitag)
Dabei habe ich 2 Fälle:
Fall 1: Außerordentliche Ausgabe > Ausgabe Folgetag
Die Berechnung wäre dann:
WENN D10 > E11
DANN
- setze D11=D10
- rechne F11= F11 - (D10-E11)
setze E11 = 0
Am Ende ist also der Geldfluss: 30 am Montag, 0 am Dienstag und die übrigen 5 am Mittwoch.
Die Gesamtsumme über die Woche bleibt also gleich.
Die Ausgaben, die eigentlich für Dienstag und Mittwoch geplant waren, werden mit der außerordentlichen Montagsausgabe quasi "aufgefressen".
Fall 2: Außerordentliche Ausgabe
Die Berechnung wäre dann:
WENN D10 DANN
- setze D11=D10
- rechne E11= E11 - D10
Frage:
Kann mir jemand helfen, dies als Code zu schreiben? Ich würde die geplanten Ausgaben sehen und in der Zeile für außerordentliche Ausgaben gerne die Ausgaben eintragen, dass die Berechnung aber nicht Formeln ausgeführt wird, sondern nur, wenn ich den Code ausführe.
Wunsch: Ginge das über die ganze Zeile?
D.h. im Beispiel sind die Zellen D10, D11, E11 und F11 betroffen. Ginge das z.B. auch alles um eine Zelle nach "rechts" verschoben?
In der Beispieldatei sieht man:
- die grüne Zeile ist die Zeile der normalen Ausgaben
- das gelbe Feld die außerordentliche Montagsausgabe
- die blaue Zeile ist das Ergebnis, was in der grünen Zeile nach Durchführung der Berechnung gezeigt werden soll
https://www.herber.de/bbs/user/145111.xlsx
Gerne erläutere ich mehr, falls ich mich nicht gut ausgedrückt habe. :-)
Viele Grüße und danke schon mal vorab fürs Lesen und Damit-Beschäftigen!
Hendrik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Range Dim S As Single Set R = Intersect(Target, Range("D10:H11")) If Not R Is Nothing Then S = Application.WorksheetFunction.Sum(Range("D10:H11")) If S > 35 Then MsgBox "Eintrag " & Target.Value & " zu hoch: es werden " & S & " EUR.", _ vbExclamation Target.Value = 0 End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Zellen-vergleichen_Zahlen-ausgleichen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread