Beste helpers
ik heb in kolom D 24 datums staan, telkens een week verder
10-12
17-12
23-12
enz
nu wil ik in met vba in kolom C
graag het weeknummer hebben
50
51
52
enz
wie kan mij daar mee helpen.
met bovenstaande code wordt kolom B en D gevuld
nu nog kolom C met het weeknummer
ik heb in kolom D 24 datums staan, telkens een week verder
10-12
17-12
23-12
enz
nu wil ik in met vba in kolom C
graag het weeknummer hebben
50
51
52
enz
wie kan mij daar mee helpen.
Code:
Private Sub Worksheet_Activate()
Range("b3").Value = Sheets("Orgineel80").Range("a1").Value
Range("d3").Value = Sheets("Orgineel80").Range("k1").Value
Cells(3, 2).Select
For i = 4 To 26
If Cells(i - 1, 2).Value = 24 Then
Cells(i, 2) = 1
Else
Cells(i, 2) = Cells(i - 1, 2) + 1
Cells(i, 4) = Cells(i - 1, 4) + 7
End If
Next
Range("b3").Value = Sheets("Orgineel80").Range("a1").Value
End Sub
met bovenstaande code wordt kolom B en D gevuld
nu nog kolom C met het weeknummer