Berechnetes Enddatum ggf. minus Anzahl P am Freitag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

=WENN(INDEX($W$6:$NX$6;MAX(ISTZAHL($W7:$NX7)*SPALTE($W7:$NX7)))-22>INDEX($W$6:$NX$6;MAX(ISTTEXT($W7:$NX7)*SPALTE($W7:$NX7)))-22;INDEX($W$6:$NX$6;MAX(ISTZAHL($W7:$NX7)*SPALTE($W7:$NX7)))-22;INDEX($W$6:$NX$6;MAX(ISTTEXT($W7:$NX7)*SPALTE($W7:$NX7)))-22)

Sub AustrittsdatumBerechnen() Dim i&, j&, k&, arr() With Tabelle1 ReDim arr(1 To gLR - 6, 1 To 1) For i = 7 To gLR For j = 113 To 23 Step -1 If .Cells(i, j).Text > "" Then k = k + 1 arr(i - 6, 1) = .Cells(6, j) Exit For End If If k = 0 Then arr(i - 6, 1) = "keine Daten" k = 0 Next j Next i .Range("S7:S" & gLR).ClearContents .Range("S7").Resize(UBound(arr, 1), UBound(arr, 2)) = arr End With End Sub

Hallo Uwe,
zunächst vielen Dank für Deine Mühe mir gleich mit zwei Ansätzen weiterzuhelfen.
Die Formel habe ich implementiert, dabei jedoch völlig falsche Ergebnisse erhalten.
Das jeweilige Enddatum war stellenweise deutlich früher als erwartet, auch in Zeilen in den dieser besondere Umstand nicht auftritt.
Abgesehen davon, dass mir nicht klar ist, wie ich das Ergebnis von AustrittsdatumBerechnen() in die Zellen der Spalte R ab Zeile 7 bekomme, gehe ich davon aus dass der Code zum gleichen Ergebnis kommt wie die Formel.

Vielleicht habe ich mich missverständlich ausgedrückt.
Folgender Umstand:
Ausgehend von einem Startdatum (D) wird zunächst analog der gewählten Module (E:O, jedes Modul hat eine unterschiedliche Dauer an Tagen -> Ressourcen!E2:E8 ) das voraussichtliche Enddatum berechnet. Soweit es zu Ausfalltagen kommt (Q) werden diese hinzu addiert.
Grundsätzlich wird von einer 4 Werktage-Woche (Mo-Do) ausgegangen. Daher sind natürlich auch ggf. Feiertage (Ressourcen!C2:C15) zu berücksichtigen.
Die bisherige Formel

=WENNFEHLER(ARBEITSTAG.INTL(D14;((P14+Q14)-1);"0000111";Ressourcen!C$2:C$16);"")

liefert korrekt diese Ergebnis .

Nun kann es sein, dass ein Praktikum (P) durchgeführt wird. In diesem Fall hat der TN an einem bis maximal drei Freitage gearbeitet, obgleich er "frei" gehabt hätte.
Um diese Anzahl "P" die auf einen Freitag entfallen reduziert sich das Enddatum in Tagen.

In der beiliegenden Demo https://www.herber.de/bbs/user/167255.xlsm ist der Teilnehmer 9 ein gutes Beispiel, bei dem mir vor wenigen Tagen das Problem aufgefallen ist.
Der TN war zwei Tage länger da als "notwendig". Durch das Praktikum hat er an zwei Freitagen (19. und 26.01.) gearbeitet. Daher hätte das Enddatum am 14.02. und nicht am 19.02. sein müssen.

Viele Grüße, Uwe

Hallo Sigi,
die zugrundliegenden Hintergründe hast Du korrekt wiedergegeben.
Auch der Schritt, den Du weitergedacht hast, ist natürlich nicht von der Hand zu weisen.
Allerdings läuft in diesem Projekt ohnehin manches etwas anders.
Ein Maßnahmeende auf einen Freitag ist rechnerisch und praktisch nicht möglich, da der Freitag grundsätzlich für die Teilnehmer frei ist.
Trotzdem vielen Dank, für die Gedanken, die Du Dir darum gemacht hast :)
das Umjk wandeln der Formel

=WENNFEHLER(ARBEITSTAG.INTL(D14; ((P14+Q14)-1-ZÄHLENWENNS(W$5:NX$5;"Fr";W$6:NX$6;">="&D14;W14:NX14;"P")); "0000111"; Ressourcen!C$2:C$16); "")

hört sich in jedem Fall verlockend an. wäre aber eher Zukunftsmusik, da ich die Zellen mit Formeln dahinter plane zu schützen.
(Im laufenden Jahr kann ich auf die ersten 7 Teilnehmer die "Ende-Formel" ohnehin nicht anwenden, da diese TN bereits im letzten Jahr gestartet und mit ins neue Jahr gegangen sind).
Grüße, Uwe

Beliebteste Forumthreads (12 Monate)

Berechnetes Enddatum ggf. minus Anzahl P am Freitag

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Berechnetes Enddatum ggf. minus Anzahl P am Freitag

18 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)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread