Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alter in jahren aus Geburtsdatum errechnen vba

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

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

Betreff
Datum
Anwender
Anzeige
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:

Anzeige
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)
Anzeige
AW: alter in jahren aus Geburtsdatum errechnen vba
14.12.2003 20:26:41
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)
Anzeige
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

36 Forumthreads zu ähnlichen Themen

Eingabe Datum,Ausgabe Lebensalter?
Rosi

Hallo Forum,
gibt es eine Möglichkeit (Formel) in eine Zelle das Geburtsdatum einzugebén um in gleicher Zelle das Lebensalter angezeigt zu bekommen? Mit Hilfszelle(n) ist das kein Problem.
Gruss
Rosi
06.11.2009 06:58:50
Thread-ID: 1114873
17 Beiträge
Anzeige
Alter berechnen (nicht mit datedif!?!)
Vicky

Hallo,
ich bin auf der Suche nach einer Formel, mit der ich das Alter berechnen kann.
Gefunden habe ich bisher sehr viel nur alles leider nicht so, wie gewünscht.
Ich hätte gerne eine Ausgabe in Jahren, Monaten, WOCHEN und Tagen... kann aber maximal noch das ohne Wochen finden nur d...
04.05.2010 18:34:48
Thread-ID: 1155415
7 Beiträge
Alter in Jahren Monaten und Tagen
René

Hallo ,
ich habe eine Formel in meinem Tabellenblatt bei der #Name? ausgegeben wird.
Die Formel lautet =dateDiff("YYYY";A1;B1)
In Zelle A1 steht ein Geburtsdatum und in Zelle B1 =Heute(). Nun wäre es mir am liebsten wenn ich eine Formel hätte die mir genau berechnet wieviel Jahre me...
23.01.2011 17:54:27
Thread-ID: 1196933
14 Beiträge
Anzeige
Datum aus Wochentag und KW berechnen
Dietmar

Guten Abend zusammen,
ich tüftele an einer Formel, die mir das Datum der aktuellen Kalenderwoche berechnen soll, wenn der Wochentag in einer Zahlenkette angegeben ist; komme aber nicht drauf.
Also gegeben ist:
A1 = 0223414 (Zahlenkette; relevant ist die zweite Ziffer von rechts, hie...
02.10.2012 21:40:36
Thread-ID: 1280305
8 Beiträge
Monate aus Datum in Zelle G2 berechnen -VBA-
Wolfgang

Hallo,
in Zelle G2 befindet sich ein Datum im Format "18.12.2014", wie kann ich über VBA erreichen (soll in bereits bestehendem Code eingebaut werden), dass in Zelle H2 die Differenz in Monaten zum aktuellen Datum ermittelt/angezeigt wird?
Danke schon jetzt für die Rückmeldungen.
Gr...
18.12.2014 13:23:24
Thread-ID: 1398859
5 Beiträge
Alter in Jahren ermitteln - VBA
Wolfgang

Hallo,
in Zelle C2 steht ein Geburtsdatum Format "07.01.2015" - wie kann ich über VBA das Alter in Jahren ermitteln lassen und in D2 ausweisen lassen?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
07.01.2015 14:27:39
Thread-ID: 1401212
6 Beiträge
KW aus Datum berechnen und umformatieren
juli-time

Hallo,
ich habe in einer Spalte Datum stehen, in der Standardform: 07.04.2016
Daneben möchte ich eine Spalte in der daraufbasierend folgendes asugebgen wird: 14/2016
Excel soll also aus dem Datum die KW berechnen und diese dann mit dem Jahr zusammenfügen.
Geht das in einer Forme...
07.04.2016 09:37:29
Thread-ID: 1486471
10 Beiträge
VBA: Altersangabe in Jahren und Tagen
Dieter(Drummer)

Guten Tag, VBA Spezialisten,
wie muss das Makro lauten, damit in der MsgBox das Jahresalter (funktioniert schon) UND eine Zeile darunter das Alter in Tagen angegeben wird?
Wäre toll, wenn mir jemand das Makro erweitern könnte.
'Makro von Bernd Held
Sub AlterAktuell() 'Alter ze...
28.04.2016 17:23:52
Thread-ID: 1490957
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
6
13
2
7
4
5
9
3
4
9
4
1
2
11
1
2
4
3
5
5
2
4
3