Sub Alter()
Gebdatum = Cells(1, 1) (Geburtsdatum steht in Zelle a1
jalter = Year(Date) - Year(Gebdatum)
If Month(Date) < Month(Gebdatum) Then
jalter = jalter - 1
Else
If Month(Date) = Month(Gebdatum) Then
If Day(Date) < Day(Gebdatum) Then
jalter = jalter - 1
End If
End If
End If
Cells(2, 1) = jalter (Ausgabe in A2)
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen