Optælling af rækker

Laves vel nemmest i vba! Gennemløb kolonne B til månederne i et array eller lign.

Du kan også gøre det ved at lave en hjælpekolonne.
Hvis du i C1 indtaster formlen =Måned(B1) og kopierer den ned kan du derefter i f.eks D1 indtaste følgende formel =TÆLV(B:B;1)
1 angiver januar, 2 vil angive februar osv.
Hvis du bruger engelsk version er formlerne tilsvarende:
=Month(B1)  og  =COUNTA(B:B;1)

Hvis det er smartest at lave i VBA er der så nogle der kan hjælpe med det?

Public Sub TælAntalPerMåned()
Dim Antal(12) As Integer
R = Range("B65536").End(xlUp).Row
For Each c In Range("B1:B" & R)
Antal(Month(c)) = Antal(Month(c)) + 1
Next
      msg = "Januar    = " & Antal(1) & vbLf
msg = msg & "Febuar    = " & Antal(2) & vbLf
msg = msg & "Marts    = " & Antal(3) & vbLf
msg = msg & "April    = " & Antal(4) & vbLf
msg = msg & "Maj      = " & Antal(5) & vbLf
msg = msg & "Juni      = " & Antal(6) & vbLf
msg = msg & "Juli      = " & Antal(7) & vbLf
msg = msg & "August    = " & Antal(8) & vbLf
msg = msg & "September = " & Antal(9) & vbLf
msg = msg & "Oktober  = " & Antal(10) & vbLf
msg = msg & "November  = " & Antal(11) & vbLf
msg = msg & "December  = " & Antal(12) & vbLf
MsgBox msg

End Sub

Kabbak-> Nemlig ;O))

Lukketid. ?