Nogmaals schrikkeljaar probleemtje!

[AC1841949]

Bekijk bijlage Test kalender1.xlsxHallo,

Uit een andere topic heb ik een kalender overgenomen, en een beetje aangepast. Ik wil namelijk in cel Z1 laten verschijnen "Schrikkeljaar" of "Geen schrikkeljaar".

Ik heb daarvoor deze formule in cel Z1 aangebracht:
=ALS(DAG(AE9)=29;"Schrikkeljaar";"Geen schrikkeljaar")

Wat loopt er verkeerd?
Als ik het jaartal verzet naar 2012 krijg ik in cel Z1 "Schrikkeljaar", is ok.
Als het geen schrikkeljaar is, komt er in cel Z1 "Waarde"!! (zie bijlage)

Hoe kan dit eventueel opgelost worden, kan er mij iemand helpen?
Alvast bedankt bij voorbaat.

 

[trucker10]

Zet deze in je cel waar jet het wil zien

=ALS(REST(JAAR(C6);4)=0;"Shrik";"niet schrik")

 

[gelens]

Dre

Probeer het hier eens mee :

=ALS(AE9="";"Geen schrikkeljaar";"Schrikkeljaar")

 

[danny147]

Beste AC1841949

De oplossing had je al in cel AE9

=ALS(REST(JAAR(C6);4)=0;AD9+1;"")

=ALS(REST(JAAR(C6);4)=0;"Schrikkeljaar";"Geen schrikkeljaar") :thumb:

Groetjes Danny. :thumb:

 

[AC1841949]

Dre

Probeer het hier eens mee :

=ALS(AE9="";"Geen schrikkeljaar";"Schrikkeljaar")

Trucker10 & gelens, mag ik jullie bedanken voor de snelle en correcte hulp :thumb:
Het werkt super.

 

[trucker10]

@ Danny het was eigenlijk zou

=ALS(REST(JAAR(C6);4)=0;AD9+1;"")

=ALS(REST(JAAR(C6);4)=0;"Schrikkeljaar";"Geen schrikkeljaar") :thumb:

 

[floris v]

Een jaar is een schrikkeljaar als het jaartal deelbaar is door 4, maar niet deelbaar door 100 tenzij het ook deelbaar is door 400.

 

[cow18]

=ALS(DAG(DATUM(jaar;3;1)-1)=29;"Schrikkeljaar";"Geen schrikkeljaar")

 

[robdgr]

Een jaar is een schrikkeljaar als het jaartal deelbaar is door 4, maar niet deelbaar door 100 tenzij het ook deelbaar is door 400.

dus:

=ALS(OF(REST(jaar;400)=0;EN(REST(jaar;4)=0;REST(jaar;100)<>0));"Schrikkeljaar";"")

Jaar is een benoemd bereik.

 

[trucker10]

rdg1314 :thumb:

In je cel =NU() en de celeigenschappen op

" Het is nu "dddd d mmmm jjjj  "," u:mm "uur"

geen formule nodig die dat berekent

 

[robdgr]

Daniël,

Niet mee eens, want als het huidige jaar voorstaat, staat de dag van vandaag met rood gemarkeerd in de kalender, voor andere jaren heb ik die vermelding. Jouw suggestie zou ik moeten afdekken met VO.

 

[trucker10]

Ik bemerk nu geen verschil tussen jouw formule in AG1 en mijn =NU() met aangepaste celeigenschappen in cel AI1

 

[robdgr]

Ik bemerk nu geen verschil tussen jouw formule in AG1 en mijn =NU() met aangepaste celeigenschappen in cel AI1

Klopt, in het jaar 2013 is er geen verschil, maar in 2010 blijft jouw vermelding staan en valt mijn vermelding weg, omdat vandaag dan in de kalender wordt gemarkeerd.

 

[trucker10]

rdg1314 , voor 200% gelijk , bij jouw valt de vermelding weg , bij mij blijf die staan . Ik had mijn focus op de schrikkeljaren gezet

 

[robdgr]

Daniël,

Heb ik nog wel een ander vraagje aan je, wetend dat je kennis van VBA groter is dan de mijne: op het blad feestdagen zie je een knop die je terugleidt naar de kalender. Hiervoor gebruik ik:

Sub naar_kalender()

Application.ScreenUpdating = False
    [C1].Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Kalender!BB100", TextToDisplay:=" "
    ActiveSheet.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.ScreenUpdating = True
End Sub

Ik moet [C1].Select invoegen en de knop daaroverheen zetten, omdat anders de hyperlink komt in de cel waar je cursor toevallig staat. Kan dat anders, dus zonder dat de tekst, waar ik nu een spatie van heb gemaakt, in een cel komt?

 

[trucker10]

Ik zou dat enkel met

Sub naar_kalender()

sheets("Kalender").select 
end sub

doen

 

[robdgr]

Ik zou dat enkel met doen

Daniël,

Dank en schaamte: ik wilde het kennelijk mooier maken dan nodig en kwam hier geen seconde op Heb hem nu zo gemaakt:

Sub naar_kalender()
Application.ScreenUpdating = False
Sheets("Kalender").Select
Range("BB100").Select
Application.ScreenUpdating = True
End Sub