Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 19 van 19

Onderwerp: Dagenreeks maken

  1. #1
    Senior Member
    Geregistreerd
    5 augustus 2017
    Vraag is opgelost

    Dagenreeks maken

    Ik heb een sportclub en er zijn trainingen op maandag, woensdag, donderdag en zondag (om de 14 dagen!).
    Ik wil per maand een lijst aanmaken van de dagen dat er training is.
    Ik wil dus bijv voor deze maand september dit overzicht:

    donderdag 2 september
    maandag 6 september
    woensdag 8 september
    donderdag 9 september
    zondag 12 september
    maandag 13 september
    woensdag 15 september
    donderdag 16 september
    maandag 20 september
    woensdag 22 september
    donderdag 23 september
    zondag 26 september
    maandag 27 september
    woensdag 29 september
    donderdag 30 september


    Maar welke formule moet ik hanteren opdat ik niet steeds handmatig de data moet invoeren?
    Ik zit in de knoop vooral met die zondag die maar om de 14 dagen is.

  2. #2
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    zie bijlage, A4
    Bijgevoegde bestanden Bijgevoegde bestanden
    Haije
    ___________________________________________________

  3. #3
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ Haije: de zondag om de 14 dagen wordt toch niet opgenomen in jouw formule?

  4. #4
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Gebruik dan deze matrix-formule:

    PHP Code:
    1
    
    =SMALL(IF(NOT(ISERR(FIND(WEEKDAY(DATE(2021;9;ROW($1:$365));2);"134")))+(WEEKDAY(DATE(2021;9;ROW($1:$365));2)=7)*ISODD(WEEKNUM(DATE(2021;9;ROW($1:$365));21));DATE(2021;9;ROW($1:$365)));ROW($A1))

    of deze:
    PHP Code:
    1
    
    =SMALL(IF(NOT(ISERR(FIND(WEEKDAY(DATE(2021;9;ROW($1:$365)))&N(ISODD(WEEKNUM(DATE(2021;9;ROW($1:$365)))));"20214041505111")));DATE(2021;9;ROW($1:$365)));ROW($A1))
    Laatst aangepast door snb : 7 september 2021 om 15:53
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Senior Member
    Geregistreerd
    5 augustus 2017
    En de Nederlandse code?

  6. #6
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Code:
    =kleinste(als(niet(isfout2(vind.alles(weekdag(datum(2021;9;rij($1:$365));2);"134")))+(weekdag(datum(2021;9;rij($1:$365));2)=7)*is.oneven(weeknummer(datum(2021;9;rij($1:$365));21));datum(2021;9;rij($1:$365)));rij($a1)
    Code:
    =kleinste(als(niet(isfout2(vind.alles(weekdag(datum(2021;9;rij($1:$365)))&n(is.oneven(weeknummer(datum(2021;9;rij($1:$365)))));"20214041505111")));datum(2021;9;rij($1:$365)));rij($a1)

  7. #7
    Senior Member
    Geregistreerd
    5 augustus 2017
    We zijn er bijna! Want in jouw formule wordt de eerste zondag van de maand (zondag 5 september) meegeteld maar zondag 12 september is het pas voor de 1ste keer training.
    Kan je dit nog eens aanpassen aub?

  8. #8
    Senior Member
    Geregistreerd
    5 augustus 2017
    Ah, heb het al gevonden! Gewoon ONEVEN veranderen in EVEN

    Bedankt voor de formule!

  9. #9
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    De formule's uit bericht #6 is de nederlandse vertaling van de formules van snb in bericht#4, ik heb ze niet gecontroleerd.
    Heb je ze ingevoerd als matrix formule? CTRL+SHIFT+ENTER?

  10. #10
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ alphamax: heb ik nu gedaan. Maar...ik zie geen verschil toen ik die toetsencombinatie nog niet gedaan had. Waarom is dat eigenlijk nodig?

  11. #11
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    De puntkomma;s vervangen door komma's.
    De aanhalingstekens vervangen door dubble aanhalingsteken.
    Dan:

    Code:
    Sub M_snb()
      Sheet1.Cells(1) = "=SMALL(IF(NOT(ISERR(FIND(WEEKDAY(DATE(2021,9,ROW($1:$365)),2),""134"")))+(WEEKDAY(DATE(2021,9,ROW($1:$365)),2)=7)*ISODD(WEEKNUM(DATE(2021,9,ROW($1:$365)),21)),DATE(2021,9,ROW($1:$365))),ROW($A1))"
    End Sub
    en nog 2 alternatieven:

    PHP Code:
    1
    
    =SMALL(IF(NOT(ISERR(FIND(WEEKDAY(DATE(2021;9;ROW($1:$365)))&N(ISODD(WEEKNUM(DATE(2021;9;ROW($1:$365)))));"20214041505111")));DATE(2021;9;ROW($1:$365)));ROW($A1))
    en uitgaande van vandaag:

    PHP Code:
    1
    
    =SMALL(IF(NOT(ISERR(FIND(WEEKDAY(TODAY()+ROW($1:$365))&N(ISODD(WEEKNUM(TODAY()+ROW($1:$365))));"20214041505111")));TODAY()+ROW($1:$365));ROW($A1))
    Laatst aangepast door snb : 7 september 2021 om 18:03
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  12. #12
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    CTRL+SHIFT+ENTER heb je nodig om aan te geven dat het een matrixformule is.
    Doe je dat niet dan kan het zijn dat de matrixformule niet goed berekend wordt.

    Zie https://worksheetsvba.com/nl/excel-m...les?filter_tag[0]=6&filter_tag[1]=5&filter_tag[2]=10 voor wat uitleg
    Laatst aangepast door alphamax : 7 september 2021 om 17:58

  13. #13
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    in Excel2019 en Excel365 weet excel zelf al dat het een matrixformule betreft en hoef je die inspanning CTRL+Shift+ENTER niet meer te doen.

  14. #14
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ alphamax: Hoe moet ik jouw onderstaande code gebruiken als ik een nieuwe maand in een nieuwe tabel wil starten? Met de vulgreep kan blijkbaar niet want die code invullen op de eerste dag van de maand lukt blijkbaar niet. Of doe ik iets verkeerd?

    =kleinste(als(niet(isfout2(vind.alles(weekdag(datum(2021;9;rij($1:$365));2);"134")))+(weekdag(datum( 2021;9;rij($1:$365));2)=7)*is.oneven(weeknummer(datum(2021;9;rij($1:$365));21));datum(2021;9;rij($1: $365)));rij($a1)

    Alle maanden van het jaar staan op 1 werkblad en elke maand staat in een nieuwe tabel. Zie bijlage.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door Pascal321 : 3 oktober 2021 om 10:44

  15. #15
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    is toch gewoon de formule een beetje aanpassen?
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  16. #16
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    pascal, bij mij doet wo 1 sep 2021 ook mee. is dat fout?
    Bijgevoegde bestanden Bijgevoegde bestanden
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  17. #17
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ VeNa: de maanden had ik idd gewijzigd maar de staart van de code was om onduidelijke reden bij mij ook veranderd. De ...rij($a1) was bij het kopiëren naar de eerste cel van een nieuwe maand veranderd in ...rij($a12). Daar zat blijkbaar de fout.

    @ sylvester-ponte: woe 1 sept. doet mee, maar bij jou staan alle data in 1 cel wat niet echt de bedoeling is.

  18. #18
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    ok, zo kun je kiezen:
    Bijgevoegde bestanden Bijgevoegde bestanden
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  19. #19
    Senior Member
    Geregistreerd
    5 augustus 2017
    Dank je wel!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren