Convert date to weeknumber (VBA)

[Mortenkamstrup]

Dear all
How do i convert a date to a week number?

It is in VBA and the week number does already exists in cell B2 (I do not want the Date to stay anywhere only the week number)

Any help or any idea which to try will be highly appreciated
Thanks in advance

 

[Sektor]

MsgBox WorksheetFunction.WeekNum([B2], 2)

 

[alansidman]

Please show a before and after sample of your worksheet. Only a couple of lines is needed.

 

[Mortenkamstrup]

Sub Convert()


Dim ugenr As Date
Range("B2").Select

End Sub


'the date is allready written in cell B2 but have to be convertet to a weeknumber without the date staying anywhere in the sheet.
'i am doin this converting multiple time so the formel should be with ect. activecell.convert
'Ugenr is the date which is copied in multiple times and afterwards have to be convertet

 

[Mortenkamstrup]

I have found a solution where i just can have the date in 1 side and the week number in another side of the template so need to worry

But thanks alot for the time and effort to every1 who spend time to trying helping me

 

[mole999]

=WEEKNUM(B2) As a sheet function