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