Wochen im pro Monat berechnen

Robert · 2021-04-13T19:55:06+00:00

Hallo liebe Exelgemeinde! Ich bräuchte Eure Hilfe bei einem Problem der Ermittlung der Wochen im Monat in Abhängigkeit von festen Daten. Es geht jetzt nicht um die KW im Jahr. Ich Möchte um ein Beispiel zu nennen am 17.042021 ist die 15. im Woche Jahr (Ermittlung kein Problem). Jetzt würde ich aber gerne errechnen das der 17.04 die Dritte Woche im April ist, der 24.04. die Vierte Woche usw. für die nchsten Monate. Wie kann ich das bewerkstelligen? Wäre über einen Vorschlag sehr glücklich. Habe auch bei der Internetrecherche nix passendes gefunden. Für Eure Bemühungen danke ich Euch im voraus. LG Robert

=WENNFEHLER(VERGLEICH(TAG(A1);6-REST(A1-TAG(A1)-1;7)+{2.9.16.23.30})+1;1)
(die 6- kann wohl noch weggekürzt werden).
Eine Woche beginnt am Montag.
Somit beginnt am Mo., den 30., die Woche 6 eines Monats, da am 2. des Monats die Woche 2 begann.
Im Februar kann es nur 4 oder 5 Wochen geben.
In den anderen Monaten kann es nur 5 oder 6 Wochen geben.
Wochen sind hier solche, wie sie im Kalenderwochensystem der USA gerechnet werden. Auch 1 einzelner Tag am Rand bildet eine eigene Woche. Deshalb kann es dort 54 KW geben (in Schaltjahren mit So. 1.1., falls dort auch Mo. Wochenbeginn ist).
Kurz vor dem Absenden: Na toll: Bei Daniel hast Du konkret geantwortet. Bei mir nicht. Daher zähle ich in meiner Formel jetzt anders. Sie passt mit Deiner Spezifikation nicht überein. Schade, für den Papierkorb.

Moin!
es wurde viel besprochen, aber Robert hat noch nicht gemeldet, dass alles passt :-)
Eigentlich kann es wie folgt berechnet werden:
_ für eingegebene Datum (und daraus der Monat), der ersten Samstag in diesem Monat errechnen

=DATUM(JAHR(A1);MONAT(A1);1)+7-WOCHENTAG(DATUM(JAHR(A1);MONAT(A1);1);1)

_ Wenn das Datum vor dem ersten Samstag, dann Samstag von Vormonat nehmen:

=WENN( A1

_ dann die Anzahl von Tage zwischen ersten Samstag und gegebene Datum rechnen:

=A1-WENN( A1

_ und daraus die Anzahl von Wochen errechnen (Ganzzahl( .. / 7)+1 ):

=GANZZAHL((A1-WENN( A1

mit einer User Defined Function (UDF) sieht es -zumindest in der Tabelle- besser aus:

Public Function Monatswoche(Target) As Date
Dim ErsterSamstag
Dim ErsteTag
Dim Monat
If IsDate(Target) Then
Monat = Month(Target)
Do
ErsterTag = DateSerial(Year(Target), Monat, 1)
ErsterSamstag = ErsterTag + 7 - WorksheetFunction.Weekday(ErsterTag, 1)
Monat = Monat - 1
Loop While Target

VG
Yal

Forumthread: Wochen im pro Monat berechnen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Wochen im Monat berechnen mit Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)