Berechnung einer Deadline innerhalb Servicezeiten

Hallo liebe Excel-Freunde,
ich habe ein ähnliches Problem wie in diesem Thread beschrieben: https://www.herber.de/forum/archiv/1436to1440/1436600_Bearbeitungsdauer_waehrend_Servicezeiten_berechnen.html
Ich habe Servicezeiten, die von 7 bis 17 Uhr und nur wochentags gelten. Außerdem sollen Feiertage ausgenommen sein. Auf Tage-Ebene wäre dies mit der Formel "Arbeitstag()" überhaupt kein Problem.
Ich muss aber auf Basis eines Meldezeitpunktes einer Störung und vorgegebenen Lösungszeiten eine Deadline berechnen. Z.B. wird die Meldung am 22.12.17 um 16.40 Uhr gemeldet. Die vorgegebene Lösungszeit beträgt 48 Stunden. Als Lösung soll dann ausgespuckt werden: 02.01.2018 um 14.20 Uhr.
Falls Feiertage die Berechnung zu kompliziert machen, können diese zunächst auch ausgelassen werden.
Im Grunde ist mein Problem genau das gleiche wie im oben genannten Thread, nur dass ich einen Startzeitpunkt und Dauer habe und daraus den Endzeitpunkt berechnen will.
Ich habe die Formel nun länger bearbeitet und mich daran versucht, sie für meinen Zweck umzuformen, es aber nicht geschafft.
Könnt ihr mir weiterhelfen?
Viele Grüße,
Tobias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

http://www.clever-excel-forum.de/thread-13029.html

Sub AuftragsdauerVonBis() 'Konstruktionsmakro; erfordert xl2007+ wegen WENNFEHLER
Workbooks.Add xlWorksheet: ActiveSheet.Name = "T": [A2:C2] = Split("lfdNr von bis")
w = InputBox("Geben Sie eine ganze Zahl ab 2 ein! (Anzahl berührter Wochen)") * 7
[D:G].NumberFormat = "[h]:mm": [F:F].NumberFormat = "MM/DD/YYYY"
[B3] = "11/23/2017 11:10": [C3] = "11/28/2017 14:45" '2 Feiertage enth.
[B4] = "11/30/2017 11:10": [C4] = "12/05/2017 14:45"
[B5] = "11/27/2017 05:59": [C5] = "12/01/2017 12:31" '1 Feiertag enth.
'Datumsformat muss andersrum (dt. statt engl.) definiert sein bei vorangestelltem Wochentag:
[B:C].NumberFormat = "DDD DD/MM/YYYY hh:mm": Rows("2:" & w + 1).EntireRow.Insert
'Umweg über defN aufgrund des alten Arrayformel-Erstellungslimits 256 Zeichen in VBA:
ActiveWorkbook.Names.Add Name:="WT", RefersToR1C1:= _
Replace("=SUM(IFERROR(EXP(LN(R1C[1]:R#C[1]-" & _
"IFERROR(EXP(LN(R1C[1]:R#C[1]-MOD(RC3-TRUNC(TRUNC(RC2)/7)*7,#))),)-R1C:R#C-" & _
"IFERROR(EXP(LN(MOD(RC2-TRUNC(TRUNC(RC2)/7)*7,#)-R1C:R#C)),))),))", "#", w)
ActiveWorkbook.Names.Add Name:="FT", RefersToR1C1:= _
"=SUM((ROW(INDIRECT(TRUNC(RC2)&"":""&TRUNC(RC3)))" & _
"=TRANSPOSE(R1C6:R14C6))*TRANSPOSE(R1C7:R14C7))"
[D1] = "54:": Range("D2:D" & w) = "=R[-1]C+1"
'Ohne explizites ".FormulaR1C1" muss im xl12-Modell "+R[0]C4" statt "+RC4" referenziert werden:
Range("E1:E" & w) = "=LOOKUP(MOD(ROW()+1,7),{0,2,6},{0,10,6.5})/24+R[0]C4"
'Fr 24.11. und Mo 27.11. sind demonstrationshalber FT, so dass aus 30:05 nur 13:35 Std werden:
[F1] = "1/1/17": [F2] = "5/1/17": [F3] = "10/3/17": [F4] = "11/24/17": [F5] = "11/27/17"
[G1:G10] = "=INDEX(R1C[-2]:R7C[-2],MOD(RC[-1]-2,7)+1)-INDEX(R1C[-3]:R7C[-3],MOD(RC[-1]-2,7)+1)"
Range("2:" & w - 2).EntireRow.Hidden = True: [B:G].Columns.AutoFit
'Select wegen FreezePanes. Außerdem: Keine Arrayformel nötig, da defN diese automatisch  _
erstellen:
Range("D" & w + 3).Select: ActiveWindow.FreezePanes = True: Selection.Resize(3, 1) = "=WT-FT"
End Sub

Du könntest nun den Zielwert in C mit einer Schleife annähern, die sich immer mehr dem Wert von D annähert. Damit hättest Du die Umformulierung des Problems auch erreicht.

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	Startzeit	Dauer (h)	Endzeit				Feiertage
2	Fr 22.12.2017 16:40	48	Mi 03.01.2018 14:40				25.12.2017
3							26.12.2017
4							01.01.2018
5							06.01.2018
6
7
8	Kontrolle
9	Fr 22.12.2017	00:20
10	Sa 23.12.2017
11	So 24.12.2017
12	Mo 25.12.2017
13	Di 26.12.2017
14	Mi 27.12.2017	10:00
15	Do 28.12.2017	10:00
16	Fr 29.12.2017	10:00
17	Sa 30.12.2017
18	So 31.12.2017
19	Mo 01.01.2018
20	Di 02.01.2018	10:00
21	Mi 03.01.2018	07:40
22	Do 04.01.2018
23	Fr 05.01.2018
24	Sa 06.01.2018
25	Summe	48:00
26

Berechnung einer Deadline innerhalb Servicezeiten

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Berechnung einer Deadline innerhalb Servicezeiten

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread