alter in jahren aus Geburtsdatum errechnen vba

Forumthread: alter in jahren aus Geburtsdatum errechnen vba

14.12.2003 17:59:09

Steffen

Hallo,

ich habe folgendes Problem. Ich habe eine Reihe von Geburtsdaten in einer Spalte stehen. Nun möchte ich den ältesten herausfinden. Das klappt auch. Nun möchte ich das Alter in Jahren berechenen. Ich hab das was gefunden und zusmmengebastelt, aber leider funktioniert das nicht ganz. Das Alter wird nur anhand der Jahreszahl berechnet. So ist jemand, der z.b. am 25.12.1950 geboren ist jetzt schon 53. Stimmt ja nciht, denn der hatte ja noch keinen geburtstag. Ich möchte nun, dass die Berechnung auf Tage und Monate ausgeweitet wird. Kann mir da jemand weiterhelfen?

Alter = DateDiff(interval:="yyyy", date1:=Range("F2").Value, date2:=Date)
With Range("IV1")
.Formula = "=DateDiff(F2, Date,""y"")"
End With
MsgBox prompt:="Alter" & Alter & " Jahre"

Gruß

Steffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: alter in jahren aus Geburtsdatum errechnen vba

14.12.2003 18:29:44

Ramses

Hallo

das kann ich nicht nachvollziehen


Sub Calculate_Year()
'A2 = 1.1.2000
a = Range("A2")
'A3 = 31.12.2000
b = Range("A3")
'Ergebnis 0
Debug.Print DateDiff("YYYY", a, b)
End Sub

Gruss Rainer

AW: alter in jahren aus Geburtsdatum errechnen vba

14.12.2003 18:43:25

Klaus-Dieter

Hallo Steffen,

versuche es mal mit diesem Makro:


Sub jahre_genau()
Dim z%, r%, sj%
' Berechnet einen Zeitraum, zum Beispiel das Alter
' bezogen auf den aktuellen Tag als Stichtag
' Klaus-Dieter Oppermann
On Error Resume Next                                        ' Fehler durch leere Zellen überspringen
z = Range("A65536").End(xlUp).Row                           ' Letzte Zeile ermitteln
For r = 2 To z                                              ' Schleifenstart für Berechnung
sj = 0                                                  ' Variable für Schaltage auf Null
' Anzahl der Schalttage ermitteln
For s = Format(Cells(r, 1), "yyyy") To _
Format(Now(), "yyyy")                               ' Schleifenstart
If s Mod 4 = 0 Then                             ' wenn Jahreszahl durch vier teilbar ...
sj = sj + 1                                 ' ... dann Variable hochzählen
End If                                          ' Ende der Bedingung
Next s                                              ' Ende der Schleife (s)
' Anzahl der Jahre berechnen und ausgeben
Cells(r, 2) = Int((DateDiff("d", Format(Cells(r, 1), _
"DD.MM.YYYY"), Now) - sj) / 365)                        ' Anzahl der Tage minus Schalttage durch 365
Next r                                                      ' Ende der Schleife (r)
End Sub

Code eingefügt mit: Excel Code Jeanie

So sieht es in der Tabelle aus:

Vielen Dank

14.12.2003 19:19:22

Steffen

Hallo,

vielen Dank. Funktioniert.

Danke vielmals.

Gruß

Steffen

Vielen Dank für die Rückmeldung o.T.

14.12.2003 22:28:48

Klaus-Dieter

AW: alter in jahren aus Geburtsdatum errechnen vba

14.12.2003 20:26:10

Werner

Hallo Seffen
aus meiner Sammlung vom Forum habe ich dieses noch für dich.
Wie kann ich das Alter einer Person berechnen?
Vorüberlegung:
Der Autor hat am 03.12.1956 Geburtstag und heute ist der 23.10.2001, dann muss zunächst festgestellt werden, ob der Geburtstag vor, am oder nach dem heutigen Datum liegt. Nach dem obigen Beispiel liegt mein Geburtstag (03.12.) nach dem heutigen Datum (23.10.), deshalb bin ich erst 44 Jahre alt. Wäre das heutige Datum der 03.12. oder ein späterer Tag des Jahres, dann wäre ich bereits 45 Jahre alt.
Diese Vorüberlegung fliesst in die folgende Formel und Funktion mit ein:

Formel, in Zelle A1 steht das Geburtsdatum als gültiger Datumswert:

=WENN(DATUM(JAHR(HEUTE());MONAT(A1);TAG(A1))>HEUTE();JAHR(HEUTE())-JAHR(A1)-1;JAHR(HEUTE())-JAHR(A1))

Benutzerdefinierte Funktion, in Zelle A1 steht das Geburtsdatum als gültiger Datumswert:


Function Alter(GebDatum)
Alter = Year(Date) - Year(GebDatum)
If DateSerial(Year(Date), _
Month(GebDatum), Day(GebDatum)) > Date Then
Alter = Alter - 1
End If
End Function

Beispielaufruf der Funktion:
A1: 03.12.1956
B1: =Alter(A1)

AW: alter in jahren aus Geburtsdatum errechnen vba

14.12.2003 20:26:41

Werner


Function Alter(GebDatum)
Alter = Year(Date) - Year(GebDatum)
If DateSerial(Year(Date), _
Month(GebDatum), Day(GebDatum)) > Date Then
Alter = Alter - 1
End If
End Function

Beispielaufruf der Funktion:
A1: 03.12.1956
B1: =Alter(A1)

Vielen Dank!

14.12.2003 20:56:34

Steffen

Hallo,

vielen Dank.

Da werde ich mal ein paar Sachen noch von testen.

Danke.

Gruß

Steffen

Infobox / Tutorial

Alter in Jahren aus Geburtsdatum berechnen mit VBA und Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um das Alter in Jahren aus einem Geburtsdatum zu berechnen, kannst Du VBA in Excel verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Function Alter(GebDatum As Date) As Integer
   Alter = Year(Date) - Year(GebDatum)
   If DateSerial(Year(Date), Month(GebDatum), Day(GebDatum)) > Date Then
       Alter = Alter - 1
   End If
End Function

Schließe den VBA-Editor und gehe zurück zu Excel.
In einer Zelle, z.B. B1, gib das Geburtsdatum ein (z.B. 03.12.1956).
In der Zelle C1 gib die Formel ein: =Alter(B1).
Drücke Enter, um das Alter in Jahren zu berechnen.

Häufige Fehler und Lösungen

Das Alter wird nicht korrekt berechnet.
- Stelle sicher, dass das Geburtsdatum korrekt im Datumsformat eingegeben wurde.
Fehlermeldung bei der Verwendung der Funktion.
- Überprüfe, ob Du das Modul korrekt erstellt und den Code richtig eingegeben hast.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch einfache Excel-Formeln verwenden, um das Alter zu berechnen:

Direkte Formel in Excel:
- Verwende die folgende Formel in einer Zelle (z.B. C1), wenn das Geburtsdatum in B1 steht:
```
=WENN(DATUM(JAHR(HEUTE());MONAT(B1);TAG(B1))>HEUTE();JAHR(HEUTE())-JAHR(B1)-1;JAHR(HEUTE())-JAHR(B1))
```

Praktische Beispiele

Hier sind einige Beispiele zur Berechnung des Alters:

Beispiel 1:
- Geburtsdatum: 01.01.2000 in Zelle A1.
- Formel: =Alter(A1) in B1 ergibt 23 (Stand 2023).
Beispiel 2:
- Geburtsdatum: 15.06.1985 in Zelle A2.
- Verwende die Formel: =WENN(DATUM(JAHR(HEUTE());MONAT(A2);TAG(A2))>HEUTE();JAHR(HEUTE())-JAHR(A2)-1;JAHR(HEUTE())-JAHR(A2) in B2, Ergebnis: 38.

Tipps für Profis

Benutzerdefinierte Funktionen in Excel: Wenn Du oft das Alter berechnen musst, erstelle eine benutzerdefinierte Funktion wie oben gezeigt.
Datumformatierung: Achte darauf, dass die Datumswerte in der richtigen Formatierung vorhanden sind, um Fehler zu vermeiden.
Stichtagsberechnung: Wenn Du das Alter zu einem bestimmten Zeitpunkt berechnen möchtest, passe die Funktion entsprechend an, indem Du das gewünschte Datum anstelle von Date verwendest.

FAQ: Häufige Fragen

1. Wie kann ich das Alter in Jahren und Monaten berechnen?
Du kannst die Tage zwischen dem Geburtsdatum und dem heutigen Datum berechnen und diese in Jahre und Monate umrechnen.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die oben genannten Methoden sind in den meisten Excel-Versionen anwendbar, solange VBA unterstützt wird.

3. Kann ich das Alter auch in Access berechnen?
Ja, die Logik zur Berechnung des Alters ist ähnlich. Du kannst die gleiche Formel oder eine VBA-Funktion in Access verwenden, um das Alter zu berechnen.

Beliebteste Forumthreads (12 Monate)

alter in jahren aus Geburtsdatum errechnen vba

Forumthread: alter in jahren aus Geburtsdatum errechnen vba

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Alter in Jahren aus Geburtsdatum berechnen mit VBA und Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

alter in jahren aus Geburtsdatum errechnen vba

Forumthread: alter in jahren aus Geburtsdatum errechnen vba

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Alter in Jahren aus Geburtsdatum berechnen mit VBA und Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread