Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rechnen mit Jahreszahl

Forumthread: Rechnen mit Jahreszahl

Rechnen mit Jahreszahl
05.12.2002 14:28:00
Willie
Wie kann ich das Alter richtig berechnen?
Ich habe z.B. in der Spalte E Geburtsdaten
20.10.1968 in die Spalte F soll das Alter!
Also 34. in der Spalte C ist das Geschlecht
m oder w
Jetzt muß ich alle Aufteilen nach:
männlich und weiblich in die Spalten I und J
wie folgt:
Kinder bis 6 Jahre
Schüler 7-10 Jahre
Jugendl. 11-14 Jahre
Mitglieder 15-18 Jahre
Mitglieder 19-26 Jahre
Mitglieder 27-40 Jahre
Mitglieder 41-60 Jahre
Mitglieder über 60 Jahre
Insgesamt

Wer kann mir helfen ich kann auch eine Datei zur Verfügung stellen!


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Rechnen mit Jahreszahl
05.12.2002 14:55:22
Tino
angenommen in A1 is das datum. nutze die folgende funktion, um das alter zu finden:

=year(today())-year(a1)

tino



Re: Rechnen mit Jahreszahl
05.12.2002 15:00:04
Rainer
mit dem vorschlag von tino wird allerdings ggf. aufgerundet.
exakter dürfte dies sein (sorry, dass ich deutsche funktionen verwende...):
=WENN(DATUM(JAHR(HEUTE());MONAT(a1);TAG(a1))<=HEUTE();JAHR(HEUTE())-JAHR(a1);JAHR(HEUTE())-JAHR(a1)-1)
Anzeige
Re: Rechnen mit Jahreszahl
05.12.2002 15:15:03
Willie
Ich habe das schon in vba so gemacht!
Das Alter habe ich dann in der Spalte F
richtig drin aber beim verteilen männlich
weiblich bekomme ich bei einem Kind 1 Jahr
eine Wert von 589??? Da liegt mein Problem.
Ich muß dann eine Reihe von Abfragen starten!
Und dem Alter nach sortieren!


Sub auswertung()
Dim G As Variant 'Geschlecht
Dim z As Integer 'Zähler
Dim Geburtstag As Date
Dim heute As Date
Dim Alter As Variant
Range("A65536").End(xlUp).Select 'letzte Zeile suchen
y = ActiveCell.Row
heute = Format(Now())
z = 2

Do
G = Worksheets("Tabelle1").Cells(z, 3).Value
If G = "m" Then 'Felder mit einander vergleichen!
Geburtstag = Cells(z, 5).Value
Alter = heute - Geburtstag
Worksheets("Tabelle1").Cells(z, 6).Value = Alter
If Alter > 60 Then
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!! Hier ist mein Problem !!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Else
End If
z = z + 1
Loop Until z = y + 1
End Sub



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige