Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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!


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)
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige