Optælling af Måned pr. år

Mine data ser således ud

Dato oprettet        Nummer af sag
01-01-2001              001
02-02-2001              002
03-02-2001              003

Osv.

Prøv denne funktion, indsættes i et alm. modul

Function Optæl(Område As Range, nr)
Dim d, md
Application.Volatile
  For Each d In Område
  If Month(d) = nr And d <> "" Then md = md + 1
  Next
Optæl = md
End Function

Så kan du tælle fx. antal gange januar optræder i det valgte område

=optæl(A2:A100;1) ' = januar
=optæl(A2:A100,2) ' =februar
osv.
en anden metode er:
=optæl(A2:A100;række(1:1)) ' og kopier 12 rækker ned for antal af alle mdr.

Tak for kommentaren, men jeg ville også gerne have det registreret pr. år. Hvad skal jeg evt skrive til dette.

Og så forstår jeg ikke rigtigt brugen af modul. Det vil sige jeg skriver det i visual basic, hvordan kalder jeg funktionen og hvordan for jeg dit flettet ind.

kopier koden herfra
i excel tast : ALT+F11
paste koden i vindue til højre

incl. år:
http://pmexcelent.dk/antal.txt

ang. linket - fik oploadet den forkerte kode, så glem den
kan først se på det efter arb.tid

det var vist sådan:

Function OptælÅ(Område As Range, nr, år)
Dim d, md
Application.Volatile
  For Each d In Område
  If Month(d) = nr And Year(d) = år And d <> "" Then md = md + 1
  Next
OptælÅ = md
End Function

=optælå(A2:A100;1;2001)  - returnerer antal januar's i 2001

tak for svaret, det virker

velbekom.

så mangler du blot lige at markere box med mit navn, og klik accepter :-)

*