Einfacher Dividendenkalender

Ich meinte eher, ob der Turnus immer der gleiche ist erfahrungsgemäß oder ob sich die Monate mal verschieben, sonst
könnte man ja als ungefähre Vorausschau dann die Monate des Vorjahres nehmen, also bspw. Januar 2018, April 2018, Juli 2018, Oktober 2018
und die dann in 2019 mal so "festlegen" und jeweils mit der letzten oder aktuellsten Dividende errechnen.
Wenn dann mal erhöht wird kann man ja jederzeit anpassen,...so war der Gedanke.

Dann hat man aber grob eine Übersicht wann was in dem Jahr kommt.

Ist halt nur die Frage ob sich die Monate oft ändern,...da habe ich keine Erfahrungen mit ?

Der Turnus ist meistens der Gleiche. Selten werden mal Sonderdividenden ausgeschüttet oder die Auszahlung vorverlegt. In diesem Fall lässt sich schon mal voraus die letzte Dividende eintragen. Im Code oben muss die Zeile

Code:

ws.Range("B6:M1000").ClearContents ' sauber machen

entfernt werden. Beim Eintragen der Dividende muss darauf geachtet werden, dass der erste Eintrag terminlich der letzte ist, das heißt, es geht rückwärts (ergibt sich so aus der Tabelle). Dieser erste Betrag wird abgefangen und als Monat + 3 in die Zukunft fortgeschrieben, wobei darauf geachtet wird, dass Monat + 3 < 12 ist. Bei Sonderdividenden oder abweichenden Terminen muss der vorausgesagte Eintrag manuell entfernt werden. Eine Unterscheidung wäre hier, den Eintrag farblich zu unterscheiden, z.B. durch

Code:

ws.Cells(<Zeile>, <Spalte>).Font.Color = RGB(192, 0, 0)

Beim Überschreiben wird einfach die Farbe geändert

Code:

ws.Cells(Zaehler, JahrSpalte + Monat - 1).Font.Color = vbBlack

Ich kann das ja mal vorbereiten.