Anzahl der Jahrgänge

Question

Hallo,

ich suche einen Code mit dem ich aus einer Liste mit Datumsangaben jeweils die Anzahl der Jahrgänge bestimmen kann:

15.09.1932
04.05.1932
21.02.1933
21.01.1935
16.11.1935
17.12.1935
15.05.1936
...
Also Jahrgang 1932 : 2
Jahrgang 1933 : 1
Jahrgang 1935 : 3 usw.
Hat jemand eine Idee?
Danke und Gruß.
A.

Answer 1

Hallo,

erst einmal DANKE!!! an alle, dass ihr euch noch so intensiv mit meinem Problem beschäftigt habt!!!!!!
Die Lösungen sind alle so super, dass ich jetzt das Problem habe, mich für eine zu entscheiden......
In jedem Fall ist es sehr interessant, was für unterschiedliche Ansätze ihr gefunden habt!!!!
Vielen Dank und viele Grüße
Andreas

Answer 2

Hallo,

bei der Auswertung der Formel ist mir aufgefallen, dass nicht alle Datumsformate berücksichtigt wurden.
Im Excelsheet sind sie dargestellt wie in der linken Spalte. Diese Spalte ist auch im Datumsformat formatiert.

11.10.2006 11.10.2006
30.09.1962 22919
11.07.1940 14803
29.08.2000 29.08.2000
03.01.2008 39450
09.04.1981 29685
03.07.1975 27578
07.12.1937 13856
22.03.1964 23458

Aber wie man an der rechten Spalte erkennt, stecken doch verschiedene Formate dahinter, so dass die Formel nicht richtig "arbeiten" kann. Gibt es einen Weg das Datumsformat für alle Einträge so einzurichten, dass es funktioniert.
Ich habe probehalber das Datum Inder ersten Spalte noch einmal überschrieben, dann funktioniert auch die Formel - nur bei den Anzahl der Einträge ist das nicht überall möglich. Danke für euren Tipp.
Gruß
Andreas

Answer 3

Hallo Andreas,

Oje, das ist ja ein schönes Durcheinander. Wie es aussieht sind einige Datumsangaben als Text dargestellt. (Erkennt man meist schon an linksbündig ausgerichteten Datumsangaben.)

Vorschlag: Lege in einer beliebiegen Spalte folgende Formel an und ziehe runter:

=WENN(ISTZAHL(W2);W2;DATWERT(W2))

Dann kannst du die Ergebnisse (als Wert !) nach W kopieren und W als Datum formatieren.
Damit sollte die Formel dann auch funktionieren.

Egal für welchen Vorschlag du dich letztlich entscheidest. Die Datenbasis sollte schon immer gleich formatiert sein.

Gruß Mr. K.

Answer 4

Es kann übrigens sein, dass du die lfd. Nummern in W nach Kopieren nochmal neu als Datum formatieren musst.

Answer 5

Hallo,

danke dein Tipp hat mein Problem gelöst. Jetzt muss ich nur noch versuchen, meiner Eingabemaske (UserForm) beizubringen, dass sie die Eingabe auch als Datum und nicht als Text erkennt......Hast du da noch einen Tipp??
Danke und Gruß Andreas

Answer 6

Cells(i,2).value = CLng(CDate(Textbox1.Value))
Cells(i,2).Numberformat = "TT.MM.JJJJ"

ungeprüft! - Mr. K.

Answer 7

...danke!! Ich probier's gleich aus.
VG