Hi All

I am looking for solution about to calculate correct week numbers.Now he make wrong week numbers. For example (must be week number 12 then he make a map week 11)

What a use is :

MyDate=Range("c4")
intweek=DateDiff("ww","01/01",My Date ,vbMonday)
strjaar=Year(MyDate)

My question is what must a change??

try this code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)     On Error Resume Next     Cells(1, 1) = DatePart("ww", Cells(1, 2)) End Sub

when you change the content of the cell (row 1, column 2) the number of week is displayed in cell (row 1, column 1)

____________________________
AndreaVB

quote:

---

admin wrote:
try this code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)     On Error Resume Next     Cells(1, 1) = DatePart("ww", Cells(1, 2)) End Sub

when you change the content of the cell (row 1, column 2) the number of week is displayed in cell (row 1, column 1)

---