Hallo,

leider reichen meine VBA-kenntnisse für die Lösung des folgenden Problems nicht aus.
Ich benötige folgende Funktion:

Function DatKal(Start, Dauer, Kalender)
=DatKal(C9;D9;G5:NH5)

die folgendes macht wenn ich diese in Zelle E9 ausführen will

Datum aus Zelle C9 in der Zeile 5 suchen
zwei Zeilen runter springen in Zeile 7
ab dieser Stelle die Werte addieren bis die Dauer aus Zelle D9 erreicht ist
die Anzahl der addierten Werte ausgeben

Ziel der Funktion ist des die Anzahl der Angefangenen Tage auszugeben

Folgend die Beispiel Datei

https://www.herber.de/bbs/user/162539.xlsm

Vielen Dank im Voraus