• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule voor de leeftijd van vandaag in Excel21016

Status
Niet open voor verdere reacties.

Mathijs CM

Gebruiker
Lid geworden
19 feb 2009
Berichten
342
Goede avond,

Ik heb de formule wel een beetje verkend en die klopt.

Edoch als er geen gebdat is in gevuld verschijnt 116, waarom?

Verder vermoed ik dat excel de formule DATUMVERSCHIL wel herkend maar komt bij mij niet zichtbaar naar voren, wel datum

Is het mogelijk om een formule te maken die ipv 116 niets invult zodat men toch de formule naar beneden kan door kopieren?

Math

NOOT: Zie verder iets over als datumverschil niet wordt herkend in bijgevoegd knipselnieuws
 

Bijlagen

  • LeeftijdNU.xlsx
    LeeftijdNU.xlsx
    12,8 KB · Weergaven: 37
  • KnipselLeeftijd.PNG
    KnipselLeeftijd.PNG
    20,5 KB · Weergaven: 47
Dit wordt de formule in cel E3:

Code:
=ALS(C3="";"";DATUMVERSCHIL(C3;$A$3;"y"))

En over die '116': Microsoft heeft in al haar wijsheid besloten om te tellen vanaf 1-1-1900. Als jij dus niks (of 0) invult, dan is het 116 jaar terug ten opzichte van het huidige jaar.

Greetz/Excelbat
 
formule leeftijd voor vandaag.

Goede avond,

Hoi Cobbe, ik blijf alles proberen vandaar die eventueel domme vragen, maar ik leer steeds meer

Ik heb de vraag gesteld aangezien ik die 116 niet mooi vond staan in een overzicht.
Ben net zolang blijven zoeken en proberen dat ik toch ergens een oplossing vond, ik heb hem gevonden, was er zelf dichtbij, maar maakte een denkfout.

Tijdens het zoeken kwam ik ook ets moois tegen van een zekere Sylvester, maar kan het helaas niet thuisbrengen wat er bedoeld wordt maar lijkt me iets moois.

Function BijnaEnJarig (GDat, Vandaag)
Dim VerjaardagDitJaar As Date, Verschil As Long, Leeftijd As Long
BijnaEnJarig = " "
etc

Is dit een Macro?

Ik ga dit in ieder geval een proberen na te spelen kan er alleen maar van leren, heb helaas nergens het excelbestand kunnen vinden, maar wie weet Leest Sylvester dit wel zelf.

De oplossing om 116 niet meer te laten verschijnen staat in bijgevoegde bijlage.

Math
 

Bijlagen

Code:
Function BijnaEnJarig(GbDat, Vandaag)
    Dim VerJaardagDitJaar As Date, Verschil As Long, Leeftijd As Long
    BijnaEnJarig = ""
    If GbDat <= 0 Then Exit Function
    VerJaardagDitJaar = DateSerial(Year(Vandaag), Month(GbDat), Day(GbDat))
    Verschil = VerJaardagDitJaar - Vandaag
    Leeftijd = Year(Vandaag) - Year(GbDat) - (Verschil >= 0)
'nu is leeftijd bekend
'en verschil is aantaldagen voor de verjaardag
'nu reageert hij nog op leeftijden van 21,22 en 23 jaar
    If Leeftijd < 21 Or Leeftijd > 23 Then Exit Function
    If Verschil <= 7 And Verschil > 1 Then
        BijnaEnJarig = "over " & Verschil & " Dagen ben je  " & Leeftijd
    ElseIf Verschil = 1 Then
        BijnaEnJarig = "over " & Verschil & " Dag ben je  " & Leeftijd
    ElseIf Verschil = 0 Then
        BijnaEnJarig = "Hoera " & Leeftijd
    End If
End Function

Dit is een UDF User Defined Function (zelf geschreven functie).

Dit werkt in uw bestand als:

=BijnaEnJArig(geboortedatum,vandaag())
 
Laatst bewerkt:
formule leeftijd voor vandaag.

Goede morgen mijnheer Cobbe,

Ik heb bestandje weer bekeken en heb de aanpassing gelijk mooi toegepast, voor wat betreft $E8 etc.

Dat andere werkt helaas niet in het bestandje, weet niet waarom?

Waar staat de Function dan eventueel omschreven, kan hem echt nergens vinden.

waar moet ik zoeken ?

Math
 
Goede morgen en het is gewoon cobbe hé mijnheer is enkel voor de zondag. :)

Heb de functie ingepast.
 
formule leeftijd voor vandaag.

Vandaag vrijdag dus goede morgen Cobbe,

Ik ga gelijk kijken want ben vrij nieuwsgierig. Dus in VBA kan men ook zelf functies maken heb er iets over gelezen n het VBA boek, maar nog niet uitgeprobeerd.
Maar dit is dus niet hetzelfde als een macro of wel?

Is er bijvoorbeeld een macro te maken die op een vaste dag bij de vraag opslaan waarschuwing laat komen Let Op Opslaan Als map met cijfer + 1

Math

En alvast bedankt
 
Ja natuurlijk gaat dat, héél veel is mogelijk met VBA.
Maar een macro wordt geschreven om een heel specifiek probleem te tackelen.
Dus is deze (meestal) bestandsafhankelijk.
 
formule leeftijd voor vandaag.

Hoi Cobbe,

Kan het zijn dat er een foutje in de Function zit? Als ik namelijk nu kijk in bijgevoegd bestand zie ik dat het wel werkt maar 1 jaar te oud vermeld. Ik heb alleen gebdat aangepast.

Ik heb een werkblad kweek : daarop ga ik zetten het weeknummer volgens =ISO. etc
Nu veranderd dat weeknummer iedere keer op een maandag dacht of niet soms? Ik sla het werkblad nu op dan onder de naam WerkKweek_49.
Op alleen maandag zou dan als ik wil afsluiten de melding moeten komen: Opslaan als WerkKweek_+1

Math
 

Bijlagen

In die functie zat een jaarverschil: sorry niet gezien.

Voor de 2de vraag :
Dit kan je testen door in A2 achter =Vandaag() +2(zondag) of +3(maandag) te zetten
 
Laatst bewerkt:
formule leeftijd voor vandaag.

Hoi Cobbe,

Ik ga gelijk kijken en uitproberen.

Math
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan