datums een jaar verder zetten

[Louiseria]

Beste forummers,
We hebben een Excel bestand met datums van door-de-weekse dagen 2017.
Nu willen we een werkblad 2018 maken met, natuurlijk de door-de-weekse dagen van 2018.
Is er een snelle manier om dit te doen, zonder steeds de maandag zelf te moeten typen en dan mbv de vulgreep tot vrijdag te laten vullen, volgende maandag typen enz?
Dus:
9-1-2017
10-1-2017
11-1-2017
12-1-2017
13-1-2017


16-1-2017
17-1-2017
18-1-2017
19-1-2017
20-1-2017

moet worden:
8-1-2019
9-1-2018
10-1-2018
11-1-2018
12-1-2018

15-1-2018
16-1-2018
17-1-2018
18-1-2018
19-1-2018

en zo het hele jaar vol.
Ben benieuwd! Groetjes, Loes

 

[VenA]

Zet in A1 1-1-2018 sleep met de rechter muisknop ingedrukt het vul handje naar beneden. Laat de muisknop los en kies Weekdagen doorvoeren.

 

[popipipo]

Geen idee hoe je blad eruit ziet maar kun je dit er misschien in verwerken.

 

[lam201]

Ja, of gewoon

=A1+52*7

(waarbij 9-1-2017 dus in cel A1 staat)


Lambert

 

[edmoor]

Druk eens op de knop in dit document:
Bekijk bijlage Datums.xlsm

 

[snb]

@V&A

Laat de muisknop los en kies Weekdagen doorvoeren.

Waar in 2010 ?

Sub M_snb()
  sn = Application.Transpose(Filter([transpose(if(weekday(date(2018,1,row(1:365)),2)>6,"_",date(2018,1,row(1:365))))], "_", 0))
  Cells(1).Resize(UBound(sn)) = sn
End Sub

 

[VenA]

@snb

Waar in 2010 ?

Zoals beschreven in #2. Zonder de rechter muisknop kan ook maar dan krijg je het contextmenu niet direct te zien.

Met in A1 een willekeurige datum

Sub VenA()
  Cells(1).AutoFill Cells(1).Resize(260), xlFillWeekdays
End Sub

 

[HSV]

@snb,

>5

??

 

[snb]

@HSV

Het hangt ervan af. Maar hier waarschijnlijk alleen werkdagen ma t/m vr.


@V&A
Ik zie niets achter de rechtermuisknop.
Inmiddels gevonden.

 

[edmoor]

Hier wel:

 

[Piet Bom]

Bij mij in Excel 2010 zit het bij: Home \ Fill \ Series \ Date, Weekday

 

[Louiseria]

Dank jullie wel voor de reacties! Sorry dat ik niet eerder reageerde maar de mailmelding werkt niet. Ik ga de suggesties uitproberen!
Het probleem met weekdagen doorvoeren is dat er steeds blokjes van 5 dagen zijn dan zou ik voor ieder blokje de 1e datum zelf moeten invullen?

 

[edmoor]

Mijn voorbeeld in, jawel, #5 maakt blokjes van 5 dagen

 

[Louiseria]

@popipipo die is geniaal! Maar ik zou dan het hele bestand moeten ombouwen... denk dat het dan sneller is om ieder jaar elk weekblokje even te slepen....
Hierbij een idee van hoe het bestand er uit ziet (telt overuren / opgenomen uren):

 

[Louiseria]

@edmoor: reactie op #10: bij mij heet het niet weRkdagen maar weEkdagen, maf. Het werkt wel, maar dan heb ik de twee lege (grijze) regels tussen de datums niet meer.
De knop in #5 doet het wel!!! In jouw document. Maar hoe kom ik aan zo'n knop in het mijne....

 

[edmoor]

Daarom wordt er altijd om een voorbeeld document gevraagd.
Maar met een kleine aanpassing in de code krijg 2 lege regels in plaats van 1.

Private Sub CommandButton1_Click()
    Dim c As Integer
    Dim i As Long
    c = 10
    For i = CLng(CDate("01-01-2018")) To CLng(CDate("31-12-2018"))
        Select Case Weekday(i)
            Case 2 To 6: Cells(c, 1) = CDate(i)
        End Select
        c = c + 1
    Next i
End Sub

 

[snb]

Of

Sub M_snb()
  [A10:A40] = [if(weekday(date(2018,1,row(1:31)),2)<6,text(date(2018,1,row(1:31)),"'dd-mm-yyyy"),"")]
End Sub