automatisch ploegenrooster

[123biertje]

klopt er staat dus =@'C:\Users\cocob\AppData\Roaming\Microsoft\AddIns\Ploegen.xla'!PLOEGA(U5)
maar dat moet zijn =PLOEGA(U5)
maar hoe zou jij het dan doen VenA ?

Heb jij een andere manier om een rooster te maken?

Mvg Henk

 

[strongetje]

hallo Henk,

hartelijk dank voor de toelichting.
heb het veranderd, en werkt nu wel.

zoals ik begrijp word dit ploegen rooster via VB aangemaakt.
ga me er wat in proberen te verdiepen.

mvg,
Mark

 

[VenA]

@123biertje, Ik zou 1 UDF gebruiken en de referentiedatum en ploeg als variabelen in de UDF opnemen.
Bv even voortborduren op jouw code

Function Ploeg(datum As Date, plg As String, referentiedatum As Date)
  ar = Split("A E D C B")
  rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
  referentiedatum = referentiedatum + 2 * Application.Match(plg, ar, 0)
  nummerinarray = DateDiff("d", referentiedatum, datum) Mod (UBound(rooster) + 1)
  If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
  Ploeg = rooster(nummerinarray)
End Function

De aanroep in D5 wordt dan

=Ploeg($C5;D$4;DATE(2019;12;2))

Als het dan ergens verspringt hoef je alleen de referentiedatum in de formule aan te passen zonder dat je iets aan de code hoeft te doen.

 

[123biertje]

Beste VenA

Heb dit geprobeerd maar krijg als tekst # WAARDE
zou je aub een bestandje kunnen sturen

Mvg Henk

Ps is gelukt, bedankt

 

[VenA]

Even van DATE() DATUM() maken in de formule?

 

[123biertje]

Beste VenA

Heb rooster van 2020 klaar, =Ploeg($C5;D$4;DATUM($A$1;1;9)), A1=dropbox, jaren
als ik deze verander in 2021 klopt het rooster niet meer, is dit ook zo te maken dat de jaren gewoon door gaan. ploegen lopen gewoon door
of moet ik elk jaar de datum zelf veranderen

Bvd Henk

 

[VenA]

Volgens mij ben jij de TS niet. Aan de berekeningen heb ik niets veranderd. Alleen de UDF wat vereenvoudigd. Inhoudelijk heb ik er niet naar gekeken. Als je het verbeterd wil hebben dan kan je beter een eigen vraag aanmaken.

 

[formatfrits]

Ik neem aan dat je na de middag nog wat wil slapen voor de nachtdienst.
Als je dit veranderd --> rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N") in deze --> rooster = Array("-", "-", "-", "O", "O", "M", "M", "->", "N", "N") gaat dat vast lukken.