Hoi Startbaan,
Ik heb nog eens wat huiswerk gedaan, en ben er bijna uit.
Alleen,................ het probleem blijft "Pasen".
Pasen wordt gevierd op de eerste zondag na de eerste volle maan in de lente. Paaszondag valt ongeveer in het midden van de jaarlijkse paascyclus en bepaalt ook wanneer de andere kerkelijke feestdagen binnen deze cyclus vallen. Zo valt Aswoensdag, waarmee de carnavalsperiode wordt afgesloten, altijd 46 dagen vóór Pasen, Hemelvaartsdag altijd veertig dagen later, Pinksteren altijd op de 7e zondag na Pasen.
Hoe kan ik in Godsnaam in Excel gaan zeggen wanneer het "volle maan" is?
De andere datums is (bijna) geen probleem, die kunnen berekend worden.
Met de onderstaande macro voeg je 12 maanden toe aan de datumvelden.
Sub dateadd2()
Range("F9").Select
ActiveCell.FormulaR1C1 = "=ZELFDE.DAG(R[-7]C[-4],12)"
Range("F9").Select
Selection.NumberFormat = "dd mmmm yyyy"
Selection.AutoFill Destination:=Range("F9:F24"), Type:=xlFillDefault
Range("F9:F24").Select
End SubIk experimenteerde nog een beetje met een andere functie (DateAdd) maar daar geraak ik voorlopig nog niet uit.
groetjes