Herbers Excel/VBA-Archiv

Kalenderwoche mit Versatz | Herbers Excel-Forum

• Kalenderwoche mit Versatz von René vom 07.01.2010 11:55:02
• AW: Kalenderwoche mit Versatz - von Josef Ehrensberger am 07.01.2010 12:07:00
  • AW: Kalenderwoche mit Versatz - von René am 07.01.2010 12:20:43
• AW: Kalenderwoche mit Versatz - von Stefan am 07.01.2010 12:31:13
  • Aufgabe nicht gelesen? o.T. - von Josef Ehrensberger am 07.01.2010 12:34:42
    • AW: Aufgabe nicht gelesen? o.T. - von Stefan am 07.01.2010 12:43:46
      • AW: Aufgabe nicht gelesen? o.T. - von Josef Ehrensberger am 07.01.2010 12:48:27

Betrifft: Kalenderwoche mit Versatz von: René
Geschrieben am: 07.01.2010 11:55:02

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é

Betrifft: AW: Kalenderwoche mit Versatz von: Josef Ehrensberger
Geschrieben am: 07.01.2010 12:07:00

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

Zelle Formel B2 =KÜRZEN((A2-DATUM(JAHR(A2+3-REST(A2-2;7)); 1;REST(A2-6;7)-9))/7)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Betrifft: AW: Kalenderwoche mit Versatz von: René
Geschrieben am: 07.01.2010 12:20:43

Hallo Sepp,

danke für die schnelle Hilfe. Klappt auszgezeichnet. Bin sehr froh.

MfG René

Betrifft: AW: Kalenderwoche mit Versatz von: Stefan
Geschrieben am: 07.01.2010 12:31:13

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

Betrifft: Aufgabe nicht gelesen? o.T. von: Josef Ehrensberger
Geschrieben am: 07.01.2010 12:34:42

Betrifft: AW: Aufgabe nicht gelesen? o.T. von: Stefan
Geschrieben am: 07.01.2010 12:43:46

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.

Betrifft: AW: Aufgabe nicht gelesen? o.T. von: Josef Ehrensberger
Geschrieben am: 07.01.2010 12:48:27

Hallo Stefan,

schon klar, aber für eine so leichte Berechnung braucht's doch keine UDF.

Beiträge aus den Excel-Beispielen zum Thema "Kalenderwoche mit Versatz"