Wie berechnet man das Alter für ein Datum vor dem 1,1.1900 in Excel?
In Excel können Datumsangaben vor dem 1,1.1900 nicht korrekt eingegeben oder berechnet werden. Möchten Sie das Alter einer Person ermitteln, die vor dem 1,1.1900 geboren wurde und verstarb, erhalten Sie in Excel normalerweise kein korrektes Ergebnis. In diesem Artikel stellen wir Ihnen jedoch einen cleveren Trick vor, mit dem Sie das Alter auch für Personen berechnen können, die vor dem 1,1.1900 geboren wurden.
Alter vor 1/1/1900 mithilfe von VBA berechnen
Alter anhand des Geburtstags mit Kutools für Excel berechnen 
Alter vor 1/1/1900 mithilfe von VBA berechnen
Mit einem VBA-Code berechnen Sie das Alter vor dem 1,1.1900 im Handumdrehen.
1. Wählen Sie eine leere Zelle aus und geben Sie den Geburtstag der Person ein. Anschließend markieren Sie eine weitere Zelle, um das heutige Datum oder – je nach Bedarf – das Sterbedatum einzutragen. Siehe Screenshot:
2. Drücken Sie anschließend die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modul-Fenster ein.
VBA: Alter vor 1/1/1900 berechnen
Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
Dim xSMonth As Integer
Dim xSDay As Integer
Dim xSYear As Integer
Dim xEMonth As Integer
Dim xEDay As Integer
Dim xEYear As Integer
Dim xAge As Integer
If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
xAge = xEYear - xSYear
If xSMonth > xEMonth Then
xAge = xAge - 1
ElseIf xSMonth = xEMonth Then
If xSDay > xEDay Then xAge = xAge - 1
End If
If xAge < 0 Then
AgeFunc = "Invalid Date"
Else
AgeFunc = xAge
End If
End Function
Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
Dim I As Long
Dim K As Long
Y = 0
M = 0
D = 0
GetDate = True
On Error Resume Next
I = InStr(1, DateStr, "/")
M = CLng(Left(DateStr, I - 1))
D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
GetDate = False
End If
End Function4. Wählen Sie eine leere Zelle aus – beispielsweise C2 – und geben Sie folgende Formel ein:=AgeFunc(A2;B2) (A2 ist das Geburtsdatum und B2 das Enddatum). Drücken Sie anschließend die Enter-Taste, um das Alter zu berechnen, und ziehen Sie den AutoAusfüll-Griff über alle gewünschten Zellen. Siehe Screenshot:
Hinweis: Dieses VBA-Skript berechnet das Alter nur bei Datumsangaben im Format mm/dd/yyyy – zum Beispiel 6/23/1845.
Alter anhand des Geburtstags mit Kutools für Excel berechnen
Wenn die Geburtsdaten normalerweise nach dem 1,1.1900 liegen, können Sie mit dem Hilfsprogramm Kutools für Excel und dessen Funktion Datum und Uhrzeit Helfer das Alter anhand der angegebenen Geburtstage schnell berechnen.
Nachdem Sie die kostenlose Installationvon Kutools für Excel abgeschlossen haben, gehen Sie wie folgt vor:
1. Wählen Sie eine leere Zelle aus, in der das Alter angezeigt werden soll, und klicken Sie auf Kutools > Formelhelfer > Datum und Uhrzeit Helfer. Siehe Screenshot:
2. Wählen Sie im Dialogfeld Datum und Uhrzeit Helfer die Option „Alter“ aus, und wählen Sie im Feld Geburtsdatum (Date of Birth) den entsprechenden Geburtstag aus. Standardmäßig wird die Zelle als absoluter Bezug ausgewählt; Sie können diesen jedoch in einen relativen Bezug ändern. Aktivieren Sie anschließend die Option Heute, und wählen Sie den gewünschten Ergebnistyp aus der Dropdown-Liste unter Ausgabeergebnistyp. Siehe Screenshot:
3. Klicken Sie auf OK, um die Formel anzuwenden – schon wird das Alter angezeigt! Bei Bedarf ziehen Sie einfach den AutoAusfüll-Griff über die Zellen, auf die diese Formel angewendet werden soll. Siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins