Hallo Experten,
es wird vom Monatsanfang bis -ende, die wöchentliche Arbeitszeit benötigt.
Problem, der Monat fängt nicht immer mit dem gleichen Wochentag an.
Beispiel Januar, da ist der 1.1.25 ein Mittwoch.
Bedeutet, ich brauche für das Addieren von Zeiten eine Range, die vom 1.1.25 (Mittwoch) bis zum 5.1.25 (Sonntag) geht und für die folgende Woche vom 6.1.25 (Montag) bis zum 12.1.25 (Sonntag) usw.
Für den Februar ändert sich dann die Range für jede Woche.
Bedeutet Range vom 1.2.25 (Samstag) bis zum 2.2.25 (Sonntag) und Range für folgende Woche vom 3.2.25 (Montag) bis zum 9.2.25 (Sonntag).

Beispiel Monat Januar 2025
in A steht das Tagesdatum, in B stehen die zu addierenden Zeiten:
In A1 1.1.25 in B1 2.1.25 in C1 3.1.25 usw.
In A2 6:00 in B2 7:30 in C2 8:00
In A7 soll man die addierte Zeit für die 1. Woche im Januar (Summe von A2 : E2) in F7 für 2. Woche Januar (Summe F2 : L2), usw. sehen.
Im Februar soll dann in A7 die addierte Zeit für die 1. Woche im (Summe von A2 : B2) und in F7 für 2. Woche (Summe C2 : I2) zu sehen sein.

Zur Erkennung des Wochentags nutze ich Cells, da man da ggf. mit Variablen aus for / next arbeiten kann.

Dim Datum as Date
Datum = ThisWorbook.ActiveSheet.Cells(1, 1).Value
Msgbox Datum 'Januar, 01.01.2025
Msgbox Weekday(Datum) - 1 ' 3



Wie muss die Formel in A7 aussehen (1. Woche im Monat), die die Range für die Zeitberechnung für jeden Monat anpasst???

Viele Grüße
Georgi