HERBERS Excel-Forum - das Archiv
Thema: Kalenderwoche mit Versatz | Herbers Excel-Forum
Kalenderwoche mit Versatz
René
Hallo liebe Excelprofis,
ich benötige eine Formel die mir die zu einem Datum zugehörige Kalenderwoche ausrechnet.
Allerdings soll die Woche immer schon ausgehend vom Montag schon in der vorgehenden Woche am Freitag losgehen und bis zum nächsten Donnerstag
Beispiel:
Kalenderwoche 2 wäre vom 08.01.2010 bis zum 14.01.2010
Kalenderwoche 3 wäre vom 15.01.2010 bis zum 21.01.2010 usw.
https://www.herber.de/bbs/user/67033.xls
Vielleicht kann mir jemand einen Tipp geben
Mit freundlichen Grüßen René
AW: Kalenderwoche mit Versatz
Josef
Hallo rené,
angepasste Formel von: http://www.excelformeln.de/formeln.html?welcher=7
Tabelle4
| A | B | |
| 1 | Datum | Woche |
| 2 | Fr 08.01.2010 | 2 |
| 3 | Sa 09.01.2010 | 2 |
| 4 | So 10.01.2010 | 2 |
| 5 | Mo 11.01.2010 | 2 |
| 6 | Di 12.01.2010 | 2 |
| 7 | Mi 13.01.2010 | 2 |
| 8 | Do 14.01.2010 | 2 |
| 9 | Fr 15.01.2010 | 3 |
| 10 | Sa 16.01.2010 | 3 |
| 11 | So 17.01.2010 | 3 |
| 12 | Mo 18.01.2010 | 3 |
| 13 | Di 19.01.2010 | 3 |
| 14 | Mi 20.01.2010 | 3 |
| 15 | Do 21.01.2010 | 3 |
| 16 | Fr 22.01.2010 | 4 |
| 17 | Sa 23.01.2010 | 4 |
| 18 | So 24.01.2010 | 4 |
| 19 | Mo 25.01.2010 | 4 |
| 20 | Di 26.01.2010 | 4 |
| 21 | Mi 27.01.2010 | 4 |
| 22 | Do 28.01.2010 | 4 |
| 23 | Fr 29.01.2010 | 5 |
| Formeln der Tabelle | ||||
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Sepp
AW: Kalenderwoche mit Versatz
René
Hallo Sepp,
danke für die schnelle Hilfe. Klappt auszgezeichnet. Bin sehr froh.
MfG René
AW: Kalenderwoche mit Versatz
Stefan
Es ginge auch per Makro:
Function deutsche_Kalenderwoche(dat As Date) As Integer 'Wandelt einen Datumswert in die Kalenderwoche nach DIN 1355 um. Dim a As Integer a = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) _ - 3) / 7) + 1 If a = 0 Then a = deutsche_Kalenderwoche(DateSerial(Year(dat) - 1, 12, 31)) ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then a = 1 End If deutsche_Kalenderwoche = a End Function
Wenn man das als add-inn einfügt, dann steht dies als neue Funktion zur Verfügung.
Habe das aus irgend einem VBA-Buch entnommen und in meinem excel umgesetzt. Funktioniert tadellos.
Gruß
Stefan
Aufgabe nicht gelesen? o.T.
Josef
Gruß Sepp
AW: Aufgabe nicht gelesen? o.T.
Stefan
Doch, aber wenn man die richtige Kalenderwoche oft braucht, ist es mit dem Makro auf Dauer einfacher. Darum wollte ich diese Möglichkeit zeigen.
Letztlich ist "=Deutsche_Kalenderwoche(A1)" ja auch wieder eine Formel.
AW: Aufgabe nicht gelesen? o.T.
Josef
Hallo Stefan,
schon klar, aber für eine so leichte Berechnung braucht's doch keine UDF.
Gruß Sepp
Excel-Beispiele