Maadnummer automatisch generen adhv een datum

[LosArrogantes]

Hallo,

D.m.v. onderstaande code genereer ik een weeknummer die in kolom A staat, weeknummer wordt dan in kolom B gezet a.d.h.v. deze datum.
Nu zou ik met dezelfde code ook op het zelfde moment in kolom C de maandnummer willen genereren...
Maar dit blijkt me niet te lukken door een worksheetfunction...

Kan iemand me hiermee verder op weg helpen ?

Alvast bedankt!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each r In Intersect(Target, Columns(4))
        If Not IsEmpty(r.Value) And IsDate(r.Value) Then
            r(, 2).Value = WorksheetFunction.WeekNum(r.Value, 2)
        Else
            r(, 2).ClearContents
        End If
    Next
    Application.EnableEvents = True
End Sub

 

[edmoor]

Dit?
r(, 3) = Month(r.value)

 

[LosArrogantes]

Idd, hoe stom kon ik zijn...

Bedankt!