Hallo Hajo,
danke für deine Antwort. Ich habe versucht, das in einen Code umzusetzen
anz = Application.CountIf(Year(Range("W2:W" & Cells(Rows.Count, 20).End(xlUp).Row)), Year(Cells(i, 23)))
wobei die Spalte "W" die Daten
15.09.1932
04.05.1932
21.02.1933
21.01.1935
16.11.1935
17.12.1935
15.05.1936
...
enthält. Der Code funktioniert so aber leider nicht.
Weißt du Rat?