• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule maand/week/dag toevoegen

Status
Niet open voor verdere reacties.
D

Danny1969

Gebruiker
Lid geworden
4 aug 2012
Berichten
59
Hallo,

is het mogelijk om met een formule de waardes van "dag", "week", "jaar+weeknr", "maand" automatisch te vullen a.h.v. van 01-01-2019...... en verder? Ik wil het handmatig doen, maar dat duurt wel heel lang :-(.

grt Danny
 

Bijlagen

  • Map1.xlsx
    8,6 KB · Weergaven: 29
Opzetje.
 

Bijlagen

  • Danny1969_1.xlsx
    9,9 KB · Weergaven: 29
Vrijwel identieke oplossing als wds, met paar kleine detailverschillen in de formules om exact het gevraagde te krijgen qua layout...
 

Bijlagen

  • Danny1969_1 (AC).xlsx
    10,2 KB · Weergaven: 31
Het meeste is ook met celformaat aan te passen.
 

Bijlagen

  • danny1969_3.xlsx
    11,4 KB · Weergaven: 34
Het nadeel van formules is, dat ze steeds worden herberekend.
Dat is voor een kalender maar 1 keer per jaar nodig.
Dan is een VBA-aanpak voor-de-hand-liggender.

Bijv.

Code: 
Sub M_snb()
  sn = [index(date(2019,1,4)-weekday(date(2019,1,4),2)+row(1:370),)]
  ReDim sp(UBound(sn) - 1, 4)
    
  For j = 0 To UBound(sp)
    If j > 10 And Application.WeekNum(sn(j + 1, 1), 21) = 1 Then Exit For
  
    sp(j, 0) = sn(j + 1, 1)
    sp(j, 1) = Format(sp(j, 0), "dddd")
    sp(j, 2) = Year(sp(j, 0)) & "-" & Application.WeekNum(sp(j, 0), 21)
    sp(j, 3) = Year(sp(j, 0)) & "-" & Month(sp(j, 0))
    sp(j, 4) = MonthName(Month(sp(j, 0)))
  Next
    
  Sheet1.Cells(1, 10).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan