Jaren in cel

[verluc]

Heb volgende tekst in rij : datum in kolom A , tekst en jaartal in kolom B
[11.10.2009] [ Verjaardag (1995) ]

Ik wil dit uitbreiden met in kolom B, uiterst rechts van deze cel het aantal jaren te vermelden, zoals bijvoorbeeld:

[11.10.2009] [ Verjaardag (1995) 14 Jaar]

Is dit mogelijk om dit uit te voeren via VBA ?
Met dank.

 

[Hoornvan]

verluc,

Dat kan toch met een formule =Datumverschil(....)
Zoek anders eens met "Doorzoek dit forum"

 

[verluc]

Let wel : Verjaardag (1995) 14 Jaar blijft dezelfde cel in kolom B

 

[Wigi]

Let wel : Verjaardag (1995) 14 Jaar blijft dezelfde cel in kolom B

De zin daarvan ontgaat mij volledig, maar als je dat toch wil gebruik dan & om tekst aan mekaar te plakken.

 

[Hoornvan]

verluc,

Zet in een cel =Vandaag() en vul deze cel in op Peildatum.
De cel van de geboortedatum op Geboortedatum.

=DATUMVERSCHIL(Geboortedatum;Peildatum;"y")

 

[TeuGem]

Hoi,

Wat heeft het voor zin om de datum van vandaag in de eerste kolom te zetten ..... (dit bedoelt Wigi ook w.s.)
Bovendien kan je aan de hand van alleen het geboortejaar niet op het juiste moment de leeftijd bepalen.

Kortom:

In kolom '1' zou je de geboortedatum kunnen zetten.
In in een 'tekstformule' o.a. opnemen =DATUMVERSCHIL(A4;NU();"y") waarbij in A4 de geboortedatum staat.

 

[trucker10]

En anders krijg je zoiets een beetje naar analogie van de vraag

 

[danny147]

Beste verluc

Waarom VBA ???

Zie de volgende bestandjes die kunnen.

Groetjes Danny. :thumb:

 

[TeuGem]

Of deze in kolom B:

="Verjaardag ("&JAAR(DATUM(1950;10;5))&") "&DATUMVERSCHIL(DATUM(1950;10;5);NU();"y")

Waarbij de geb.dat 5 oktober 1950 is ....
Niet echt een elegante oplossing, maar het is waar je om vraagt ....

 

[danny147]

Beste TeuGem

Niet echt een elegante oplossing, maar het is waar je om vraagt ....

Hij vraagt het in VBA code, maar waarom ???

Groetjes Danny. :thumb:

 

[trucker10]

Beste TeuGem



Hij vraagt het in VBA code, maar waarom ???

Groetjes Danny. :thumb:

Danny , indien er een begincode VBA is van de TS hoe hij het wil , kunnen we verder werken , je kan

Sub tst()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

Range("B1:B" & LR).FormulaR1C1 =  "de formule"

End Sub

toepassen heeft hij het in VBA , maar we zullen het antwoord van TS afwachten op de reeds ruim geboden oplossingen van iedereen :thumb:

 

[verluc]

Bedanking voor alle suggesties.
Kom er zeker uit met één van jullie voorstellen !!!