Anzahl Tage zwei überlappender Zeiträume

Hallo Zusammen,

ich bin dabei eine Art Urlaubs- und Ressourcenplanung zu bauen.
Dazu habe ich in einem Tabellenblatt die Urlaube der einzelnen Mitarbeiter mit Start- und Enddatum. Auf der anderen Seite habe ich eine Wochenübersicht, wer wann an wie vielen Tagen verfügbar ist.
Nun möchte ich diese Verfügbarkeiten natürlich nicht manuell pflegen, sondern aus der Urlaubsübersicht übernehmen.

Tabellen Blatt 1 "Urlaube":
Darin befindet sich in Spalte A der Name des Mitarbeiters, in Spalte C Startdatum und in D das Enddatum.
Userbild

Tabellen Blatt 2 "Ressourcenplanung":
Hier habe ich in der Spalte A ab Zeile 3 den Namen der Mitarbeiter. In Zeile 1 ab Spalte B habe ich das Anfangsdatum einer jeden Kalenderwoche.
Userbild

Nun möchte ich in der Ressourcenplanung wissen, an wie vielen Tagen der Mitarbeiter pro Kalenderwoche abwesend ist, damit ich dies von der Anzahl an Nettoarbeitstagen der entsprechenden Woche abziehen zu können.

Geht das ohne den Einsatz von VBA?
Hat jemand eine Idee?

Ich bin für jede Hilfe dankbar.

Viele Grüße,
aus dem hohen Norden.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

=LET(Dat;SEQUENZ(5;1;B$1;1);MA;$A4;SP_MA;Urlaube!$A:$A;SP_Von;Urlaube!$C:$C;SP_Bis;Urlaube!$D:$D;FT;Config!$A:$A;
SUMME((ZÄHLENWENNS(SP_MA;MA;SP_Von;"="&Dat;SP_Bis;">="&Dat)>0)*(ZÄHLENWENN(FT;Dat)=0)))

Moin,

mache aus den Spalten Urlaube!A:D eine Tabelle, dann über "Daten", "Aus Tabelle" eine Power Query Abfrage.
Schlüsselfunktion ist List.Dates, um aus einem "Von-Bis" eine Liste von Tage, wo der Mitarbeiter Urlaub hat. Aus 11 Zeilen werden 87.
Durch Duplikate entfernen schmeisst Du die doppelte Einträge weg. Nur noch 86 Zeilen.

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Name", type text}, {"Typ", type text}, {"Von", type date}, {"Bis", type date}}),

    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Geänderter Typ", "ListDates", each List.Dates([Von], Number.From([Bis])-Number.From([Von])+1, #duration(1,0,0,0))),

    #"Erweiterte ListDates" = Table.ExpandListColumn(#"Hinzugefügte benutzerdefinierte Spalte", "ListDates"),

    #"Entfernte Spalten" = Table.RemoveColumns(#"Erweiterte ListDates",{"Von", "Bis", "Typ"}),

    #"Geänderter Typ1" = Table.TransformColumnTypes(#"Entfernte Spalten",{{"ListDates", type date}}),

    #"Entfernte Duplikate" = Table.Distinct(#"Geänderter Typ1")

in

    #"Entfernte Duplikate"

Darauf lässt sich leicht einen Pivot oder whatever aufbauen.

VG
Yal

Beliebteste Forumthreads (12 Monate)

Anzahl Tage zwei überlappender Zeiträume

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzahl Tage zwei überlappender Zeiträume

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

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread