Clever-Excel-Forum

Wir kriegen demnächst das Upgrade auf die aktuelle Version *schwitzendes Emoji*, ja mit Code mein ich VBA.

Es gibt 9 Mitarbeiter.
Wenn ein Mitarbeiter erst nach 2 Wochen wieder Dienst schieben darf, dann kommen nach ihm erst alle seine acht Kollegen dran. Angenommen, sein erster Tag ist Montag, dann kommt er frühestens am übernächsten Montag dran. Immer montags arbeiten ist aber nicht gewünscht. Der folgendende Dienstag geht sich aus. Der muss ers sogar sein, weil kein anderer Mitarbeiter länger als 2 Wochen zuvor das letzte Mal gearbeitet hat.
Der Dienstplan sieht dann so aus:
Montag,
2 Wochen und ein Tag später (Dienstag),
2 Wochen und ein Tag später (Mittwoch),
2 Wochen und ein Tag später (Donnerstag), usw.
Dazwischen liegen jeweils 8 Arbeitstage, an denen die anderen der Reihe nach arbeiten.

Ist es das, was Du wolltest?

Moin!
Du brauchst wenig:

• eine Liste der Feiertage (Name: FT)
  
• eine Liste aller Arbeitstage des Kalenderjahres
  
• eine Liste der zufälligen Reihenfolge der Mitarbeiter
  

Hier mal mit ARBEITSTAG.INTL, dies müsste man noch auf Dein archaisches Excel anpassen.
Danach gesamten Bereich kopieren und als Wert einfügen.

	A	B	C	D	E	F	G	H	I
1	Mi, 01.01.20		Do, 02.01.20	Name4		0,898520689	4	Name1	Name4
2	Fr, 10.04.20		Mo, 06.01.20	Name2		0,9902788	2	Name2	Name2
3	Mo, 13.04.20		Di, 07.01.20	Name8		0,870812368	6	Name3	Name8
4	Fr, 01.05.20		Mi, 08.01.20	Name1		0,990867373	1	Name4	Name1
5	Do, 21.05.20		Do, 09.01.20	Name7		0,087327545	7	Name5	Name7
6	Mo, 01.06.20		Mo, 13.01.20	Name3		0,033009315	8	Name6	Name3
7	Do, 11.06.20		Di, 14.01.20	Name5		0,895711326	5	Name7	Name5
8	Sa, 03.10.20		Mi, 15.01.20	Name6		0,959623847	3	Name8	Name6
9	So, 01.11.20		Do, 16.01.20	Name4
10	Fr, 25.12.20		Mo, 20.01.20	Name2
11	Sa, 26.12.20		Di, 21.01.20	Name8
12			Mi, 22.01.20	Name1
13			Do, 23.01.20	Name7
14			Mo, 27.01.20	Name3
15			Di, 28.01.20	Name5
16			Mi, 29.01.20	Name6
17			Do, 30.01.20	Name4
18			Mo, 03.02.20	Name2
19			Di, 04.02.20	Name8
20			Mi, 05.02.20	Name1
21			Do, 06.02.20	Name7
22			Mo, 10.02.20	Name3

Name	Bezug
FT	=Tabelle1!$A$1:$A$11

Zelle	Formel
C2	=ARBEITSTAG.INTL(C1;1;"0000111";FT)
D2	=INDEX(I$1:I$8;REST(ZEILE(X9);8)+1)
F2	=ZUFALLSZAHL()
G2	=RANG(F2;F$1:F$8)
I2	=INDEX(H$1:H$8;VERGLEICH(ZEILE(X2);G$1:G$8;0))

Gruß Ralf

Sieht gut aus RPP63. Ich warte nur lieber ein paar Wochen, bis wir das neue Excel haben.

Spalte D bekomm ich nicht hin, da steht nur überall #Name

Ich bedanke mich viemals für die Bemühung. :100: