Hallo,

Het is een probleem die voor mij elk jaar terug komt.
Ik maak in Excel fiches aan waarop ik uitgevoerde werken invul, dit om dan in een verdere stap facturen mee te maken.
Het is nu zo dat ik momenteel nog heel wat fiches moet aanvullen met werken van vorig jaar.

Het probleem dat ik nu voorheb is, wanneer ik een datum invul (dag en maand, vb 23/06), dan vult Excel het jaartal automatisch aan, helaas is dit nu met 2026, maar ik wil dat dit met 2025 is.

Ik heb er al vaak een oplossing voor gezocht, maar vind zelf geen gepaste oplossing.
Ofwel moet ik het jaartal (nu 25) er telkens bij typen, maar aangezien ik die gewoonte niet heb doe ik het vaak niet en is er een verkeerde datum ingevuld.
Wat wel werkt is door de datum van mijn Windows manueel aan te passen naar 2025, maar dit heeft dan weer problemen bij andere programma's of in mijn browser.
Een extra cel/kolom toevoegen die de ingegeven datum dan gaat aanpassen door een formule is voor mij ook geen oplossing, aangezien ik datums invul in verschillende kolommen en in meerdere tabbladen.
Het zou een oplossing moeten zijn waarbij Excel de datum die ik invul (vb 23/06) automatisch aanvult (nu naar 23/06/2025) met het jaartal van vorig jaar, eventueel met een macro of iets waarmee je Excel of Office kan wijsmaken dat we nog 2025 zijn.

Alvast bedankt voor jullie reactie.

Groeten Steven

Het IS een aanname van me, maar ik vermoed dat als er een datum wordt ingegeven die groter is dan de huidige datum, dat dán het jaartal 2026 moet worden aangepast naar 2025. Dat zou eenvoudig kunnen met deze VBA procedure die in de Workbook module moet worden weggeschreven... (dit om op meerdere sheets te kunnen werken)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
    If Target.Cells.Count > 1 Then Exit Sub
    If IsDate(Target.Value) Then
        Application.EnableEvents = False
        If Month(Target.Value) > Month(Date) And Day(Target.Value) > Day(Date) Then
            Target.Value = DateSerial(Year(Target.Value) - 1, Month(Target.Value), Day(Target.Value))
        End If
        Application.EnableEvents = True
    End If

End Sub
Dus als je vandaag (!) 2/1 intikt dan wordt de datum in de cel 2/1/2026. Maar tik je vandaag (!) bijvoorbeeld 10/1 in, dan zal de datum in de cel worden aangepast naar 10/1/2025.
Mocht mijn aanname verkeerd zijn, dan sluit ik me aan bij Popipio. 

Popipo, vreemd... enne... jij was nog laat bezig zeg! 
Ik heb zo een klusdag bij mijn zoon, maar zal het vanavond nog ff nakijken (nu reactie op mijn mobieltje).

@ leoIk was zo laat toch niet helemaal wakker want is schreef

Ik ben VBA specialist maar ik krijg jou code niet werkend.

Terwijl ik bedoelde
Ik ben GEEN VBA specialist maar ik krijg jou code niet werkend.

SoftAid, Popipipo, de klusdag zit er op (inbouw/hangtoilet nu het lastigste deel getegeld) dus kan ik even reageren. 

Ik was gisteren ook begonnen met het vergelijken met de datum, maar daar kreeg ik toen niet het gewenste resultaat. Daarbij bedacht ik me dus dat het vergelijken op maand en dag dé oplossing moest zijn. Maar helaas nét ff te snel gepost en niet geheel helder meer op het tijdstip. Ha ha ha...
Ik hou wel vast aan de maand en dag, maar de maand vergelijk ik nu met een piepkleine aanpassing, namelijk ">=". In m'n bijlage werkt dat wel.

[EDIT] Hmmm... maand en dag gaat inderdaad niet goed... ha ha ha... testen niet nodig [/EDIT]
Ik denk dat die 31/12 altijd wel goed gaat. Maar neem een schrikkeljaar met 29/2, dán ga je wél de mist in.
Maar goed... als je jullie mijn bijlage ook nog ff willen uitproberen en kijken of die het wel goed doet?

Overigens lijkt mij het intikken van bijvoorbeeld 28/9/25 niet zoveel moeite en ben je er héél zeker van dat je de juiste datum hebt ingegeven.

[EDIT] ik heb 'm in de bijlage in de code nu aangepast... [/EDIT]

Willem, als je vandaag 31/12 invult, dan is dat voor Excel altijd een datum in de toekomst

Dat de macro dit doet snap ik
Maar mijn vraag is eigenlijk wil je zelf dit zo strik doen:
1 jan wordt 2026 en een dag je eerder wordt 2025
Maar laten we nu eerst maar eens afwachten of Steven er mee uit de voeten kan of niet.

Beste probleemoplossers (zal ik maar zeggen, om iedereen aan te spreken )

Ik heb de code van SoftAid (verbeterde versie van RedHead) vandaag eens toegevoegd en getest.
Deze doet eigenlijk perfect wat ik wenste  . Als ik de datum typ (vb 12/4), verschijnt er eerst 12/04/2026, daarna zie je onmiddellijk dat de code hem aanpast naar 12/04/2025
Had de code de datum altijd met 1 jaar aangepast was dit ook goed voor mij, dan zette ik de code in normale omstandigheden inactief (het is enkel de eerste 2 weken van januari dat ik dit probleem heb), maar zoals de code nu geschreven is zal dit normaal niet nodig zijn.

Ik begrijp de reactie van Popipipo,

Ik denk dat je jouw gewoonte moet aanpassen in plaats van excel jouw 'fouten' te (laten) corrigeren. Want het kan ook zijn dat je wel 2026 bedoelt en excel kan jou gedachten niet lezen.

Maar als je gewoon bent om altijd enkel de dag en maand te typen, dan mag ik nog mijn best doen, vaak vergeet ik dan toch om het jaartal bij te typen, waardoor er fouten in de fiches en uiteindelijk ook op de facturen terecht komen.

Alvast hartelijk dank, om mij te helpen met dit 'probleempje'  , het maken van mijn werfiches verloopt weer iets vlotter 

Gr Steven

Beste SoftAid/Steven, ...... Echter ik kan mij ook voorstellen dat hij met  6-1 echt 6-1-26 bedoelt....

Willem, Steven werkt zijn oude fiches bij, dus zal hij bij ingave nooit een datum in de toekomst (na NU) bedoelen. Dus zal de datumingave (dd/mm) steeds bedoeld zijn als in het verleden liggend. En dan werkt de macro altijd perfect door een jaar af te trekken van wat Excel beschouwd met de invoer dd/mm/2026.  Klinkt dit logisch?

Groeten,

SoftAid