Daten Datum von - Datum bis für eine Kalenderwoche ermitteln

Hallo!
<br />Montag einer Kalenderwoche: https://www.donkarl.com?FAQ2.9
<br />Der beendende Sonntag ist dann natürlich einfach +6 Tage.
<br />
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hallo JF, ich bin ein unabhängiger Berater und werde versuchen zu helfen.

Es gibt keine direkte Funktion, die den ersten Tag einer Woche bestimmt. Möglicherweise können Sie eine Funktion finden, die sie berechnet. Aber es tritt ein Problem bei, was Sie als Woche 1 definieren. Wenn der 1. Januar ein Donnerstag ist, ist das Woche 1 oder ist der folgende Sonntag der Beginn der ersten Woche?

Also, wenn ich dies tun musste (und ich habe), habe ich eine Tabelle mit Wochenzahlen erstellt. Dies ist in Excel sehr einfach. Wenn Sie 1, 2, 3 in einer Spalte in Excel nach unten eingeben und dann die drei Zellen auswählen und den Bereich nach unten in Zeile 53 ziehen, füllt sie die Spalte mit fortlaufenden Zahlen von 1-53. Als nächstes gehen Sie in die nächste Spalte und geben sie am ersten Tag der ersten Woche ein. Machen Sie die nächsten beiden Zeilen mit diesem Datum plus 7 Tage. Ziehen Sie dann den Bereich erneut nach unten in Zeile 53. Ich würde dann eine dritte Spalte mit dem Jahr hinzufügen, das dieser Satz von Zeilen abdeckt.

Importieren Sie dann diese Tabelle in Access. Und Sie haben Ihre Kalendertabelle. Ein einfaches DLookup

DLookup("[Firstdate]","tblCalendar","WeekNumber = " & WeekNumber)

gibt das gewünschte Datum zurück.

Sie können das Enddatum berechnen, indem Sie 6 hinzufügen oder eine Spalte für das Enddatum hinzufügen.

Wenn Sie weitere Klarstellungen dazu benötigen, zögern Sie nicht zu fragen.

Hallo Lubeca,

Pivot unterstützt das Gruppieren nach Wochen nicht (sind bei Gruppieren auch nicht vorhanden).

Erstelle dir in deiner Originaltabelle eine zusätzliche Spalte mit der Kalenderwoche. Wenn dein Datum in Spalte A steht, dann in B2:

=Kalenderwoche(A2;21)

Füge dann sowohl das Tagesdatum als auch die Kalenderwoche in den Zeilenbereich und gruppiere dann das Datum nur nach Monaten.

[CB]

Hallo nochmals,



da ist noch ein Fehler drin. Die Zeile für LrowQ sollte so lauten:

LrowQ = .Cells(.Rows.Count, 2).End(xlUp).Row



Dann ist da noch das Problem mit der Kalenderwoche. Welche Excel-Version nutzt du? Ab 2010 könntest du mit:

rngC = WorksheetFunction.WeekNum(.Cells(rngC.Row, 4), 21)

die richtige Kalenderwoche erhalten. Davor rechnet Excel aber immer mit dem US-Standard und nicht mit der DIN. Nach US-Standard ist immer die Woche mit dem ersten Januar die erste Kalenderwoche und deswegen sind in manchen Jahren die Formel und die Funktion
für die Kalenderwoche abweichend.

Wenn du mit einer Excel-Version vor 2010 arbeitest, füge dir in eine Standardmodul folgende Funktion ein:

Function DIN_KW(Datum As Date) As Integer

' von Christoph Kremer, Aachen

Dim t&

t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)

DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1

End Function

und ändere dann die Zeile in deinem Code um auf:

rngC = DIN_KW(.Cells(rngC.Row, 4))



Mit freundlichen Grüßen

Claus

Hallo Uwe,

das reservierte Wort Datum dürfte das Problem sein. So wie Du es geschrieben hast ist es ein Feld aus Deiner Abfrage/Tabelle. Falls es allerdings das Tagesdatum seien sollte wäre Datum() ohne eckige Klammern richtig. Ansonsten bitte das Feld umbenennen.

Übrigens gibt es noch den Parameter der Dir die Kalenderwoche im deutschen Kalender zurück gibt. Das was Du da gerade abfragst ist die amerikanische Kalenderwoche. Die passt aber speziell im Fall KW 53 nicht immer. Daher immer DatePart("ww"; date(); 2) angeben!

Viel Erfolg

Gruß Mike