Datumvraag

[aks1969nl]

Ik zou willen weten of er een formule is waarmee je een weeknummer kunt omzetten naar een datum vanaf zondag t/m zaterdag.

Ik heb wel een VBA formule maar die werkt niet goed.

Option Explicit

Private Sub Worksheet_Activate()
Dim A As Integer, B As Integer, C As Long, D As Integer
Dim Weeknumber As Integer
Weeknumber = 0
If Date < 1 Then Exit Sub
A = WeekDay(Date, vbSunday)
B = Year(Date + ((8 - A) Mod 7) - 3)
C = DateSerial(B, 1, 1)
D = (WeekDay(C, vbSunday) + 1) Mod 7
Weeknumber = Int((Date - C - 3 + D) / 7) + 1
Application.Goto Cells(1, Weeknumber + 1), True
End Sub

Kan iemand mij verder helpen? het hoeft niet per sé een VBA formule te zijn.

Groet, AKS1969NL

 

[Cobbe]

Met deze formule en het weeknummer in A1

=VANDAAG()+7*(A1-WEEKNUMMER(VANDAAG()))-WEEKDAG(VANDAAG())+2

Cobbe

 

[aks1969nl]

Dank, alleen geeft de formule de foutmelding: #NAAM?.
Ik heb de cel waar de forule in geplakt is met datuminstelling gezet.

Doe ik iets fout?

Aks1969NL

 

[Roncancio]

Dank, alleen geeft de formule de foutmelding: #NAAM?.
Ik heb de cel waar de forule in geplakt is met datuminstelling gezet.

Doe ik iets fout?

Aks1969NL

Dan zal je de Analysis Toolpak aan moeten vinken omdat WEEKNUMMER niet kan worden gevonden.

Analysis Toolpak vind je bij Extra -Invoegtoepassingen.

Met vriendelijke groet,


Roncancio