(13.06.2019, 10:02)fahri schrieb: Ich meinte eher, ob der Turnus immer der gleiche ist erfahrungsgemäß oder ob sich die Monate mal verschieben, sonstDer 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
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 ?
Code:
ws.Range("B6:M1000").ClearContents ' sauber machen
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.