Ploegendienstrooster

[peter59]

Hallo

Ik zit te stoeien met een formule om na de nachtdienst (N) een R1, R2, enz. in te voegen.
In het voorbeeldbestandje staat in "kolom B" hoe het dient te worden.

Ik dank jullie nu alvast voor het meedenken.

Peter

 

[pasan]

in kolom B staat niets
en waar staat 551 tot 555 in de eerste rij voor?

 

[peter59]

Hallo Pasan

Sorry,
Verkeerde bestandje ge-upload.
Ik hoop dat het juiste voorbeeldje nu als bijlage is toegevoegd.

551 t/m 555 staat voor het z.g. ploegnummer.

Ik ben je nu al dankbaar voor het meedenken.

Peter

 

[pasan]

Probeer deze functie eens, nadat je deze in een module hebt gezet
in een cel typ je "=Ploeg(kies een datum;kies de ploegnummer"
ik mag aannemen dat er niet meer ploeg nummers zijn?

Private Function Ploeg(datum As Date, D As Integer)

Dim Rooster() As Variant
Rooster = Array("O", "O", "M", "M", "N", "N", "R1", "R2", "R3", "R4")
dienst = Array(551, 552, 553, 554, 555)
startdatum = Array("16-1-2015", "14-1-2015", "12-1-2015", "10-1-2015", "8-1-2015")
i = Application.WorksheetFunction.Match(D, dienst, 0)

ReferentieDatumA = startdatum(i - 1)
NummerinArray = DateDiff("d", ReferentieDatumA, datum) Mod (UBound(Rooster) + 1)
If NummerinArray < 0 Then NummerinArray = NummerinArray + UBound(Rooster) + 1
Ploeg = Rooster(NummerinArray)

End Function

 

[sylvester-ponte]

of zonder vba:

=KIEZEN(INTEGER(REST($A2+(KOLOM(B1)-2)*2;10))+1;"O";"O";"M";"M";"N";"N";"R1";"R2";"R3";"R4")

zet deze in B2 en dan opzij en naar beneden slepen.

 

[peter59]

Hallo Pasan en Sylvester-Ponte

Jullie aangedragen oplossingen werken als een tierelier.
Ik heb jullie bijdrage (VBA en formule) in het voorbeeld bestandje toe geplaatst.

Heel hartelijk dank voor jullie oplossing.

Peter