week N's

[Excelvbas01]

In het voorbeeld bestandje heb ik twee comboboxen en twee textboxen.
Ik zou graag textboxen vullen met datum van de gekozen week no.
Dit is afhankelijke van het gekozen jaar.
Ik kom zelf er niet uit hoe ik dit moet doen. Hopelijk heeft iemand een idee.

voorbeeld: 2025 weeknummer 40
in de eerste textbox komt dan te staan: 29 september 2025
in de tweede textbox komt de 5 oktober 2025
De week loopt namelijk van ma 29/9 t/m zo 5/10

 

[popipipo]

Waarom speciaal met texboxen
Kan ook gewoon in een cel.

 

[HSV]

Bv.

Private Sub ComboBox2_change()
  bgdatum = Format(Evaluate("7*(" & ComboBox2 & "-1)+date(" & ComboBox1 & ",1,4)- weekdaAy(date(" & ComboBox1 & ",1,4),2)+1"), "dd-mm-yyyy")
  endatum = Format(CDate(bgdatum) + 6, "dd-mm-yyyy")
End Sub

Misschien zijn in de loop der jaren al betere formules gemaakt om de dag te bepalen.

 

[popipipo]

in de loop der jaren al betere formules

Zou kunnen, dit is er nog eentje uit de oude doos.

 

[HSV]

@popipipo, haha, die van mij ook.

 

[popipipo]

Als iemand een nieuwere versie heeft horen we het graag

 

[AlexCEL]

Alternatieve formule voor het voorbeeld in #2:

=DATUM(B9;1;7*B10-WEEKDAG(DATUM(B9;1;4);2)-2)

 

[peter59]

Of misschien zoiets?
LET OP: er is geen rekening gehouden met een eventueel weeknr 53.

PS: nieuw bestandje toegevoegd. De formule was niet goed.

 

[snb]

Vond ik toevallig hier: https://snb-vba.eu/VBA_ISO_weeknummer.html

in A1 het jaar
in A2 het weeknummer

maandag
=7*(A2-1)+AFRONDEN.BENEDEN( DATUM(A1;1;4);7)+1
zondag
=7*A2+AFRONDEN.BENEDEN( DATUM(A1;1;4);7)

 

[HSV]

@snb,

Je loopt met die formule 1 en 2 week voorop.

 

[snb]

Daggutnie.

 

[popipipo]

wie van de 5?

 

[JEC.]

Hier nog eentje

=WORKDAY.INTL(("1-"&B1)-1;B2;"1110111")-3

 

[Excelvbas01]

Enorm bedankt voor jullie input, moeite en suggesties.
Formule van HSV werk prima.

 

[snb]

zie bijlage met diverse verbeteringen.

 

[popipipo]

@JEC.
Dat is mooie voor de nieuwere versies

 

[AlexCEL]

@snb Dit bestand is leeg bij mij.

 

[popipipo]

Alleen een stukje VBA waarin je een listbox kunt invullen waar vervolgens niets mee gedaan gaat worden.

 

[snb]

Er zit een Userform in die je kunt starten. KIes een jaar en een weeknummer.