Weeknummer afhankelijk van txtbox vba

[Excel01]

In txtbox1 vul ik een bepaalde datum in en ik wil aan de hand van die datum weeknummer in txtbox2 verschijnt.

voorbeeld:
txtbox1 = 01-01-2017
txtbox2 = 01

Ik heb gezocht maar ko er niet uit.

Weet iemand hoe ik dit moet oplossen?

 

[SjonR]

werkte niet

 

[edmoor]

1-1-2017 is weeknummer 52, niet 1.

TextBox2.Text = DatePart("ww", CDate(TextBox1), vbMonday, vbFirstFourDays)

 

[VenA]

En nog even toetsen of het wel een datum is.

Private Sub TextBox1_Change()
  If Len(TextBox1) = 10 And IsDate(TextBox1) Then TextBox2 = Format(DatePart("ww", TextBox1, 2, 2), "00")
End Sub

 

[Excel01]

gelukt bedankt.