---

hallo,

uab da noch was, wie kann ich aus einem datum die KW herausfinden, für den monat und das jahr gibt es vorlagen!
Bitte um hilfe.

Danke im voraus

Danny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Danny,

es gibt die Funktion KALENDERWOCHE(). Dazu musst du in den Versionen vor 2007 unter Extras -> Add-Ins die Analyse-Funktion aktivieren.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder in VBA mit einem UserForm und zwei Labeln:

Private Sub CommandButton1_Click()
Dim tag As Date
tag = Cells(2, 2)
UserForm1.Label1 = kwoche(tag)
UserForm1.Show
End Sub
Function kwoche(d As Date) As Integer
Dim t&
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
kwoche = (d - t - 3 + (WeekDay(t) + 1) Mod 7) \ 7 + 1
End Function

Gruß

------------------
-Axel-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Ganze geht recht elegant mit einer VBA-Funktion und auch noch nach DIN - was will man mehr:

Code:

---

Function kw(dat As Date) As Integer
    ' Berechnet die Deutsche Kalenderwoche nach DIN
    Dim woche As Integer
    woche = Int((dat - DateSerial(Year(dat), 1, 1) + ((WeekDay(DateSerial _
    (Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
    If woche = 0 Then
        woche = kw(DateSerial(Year(dat) - 1, 12, 31))
    ElseIf woche = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) _
    Mod 7 <= 3 Then
        woche = 1
    End If
    kw = woche
End Function

---

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

woche = Int((dat - DateSerial(Year(dat), 1, 1) + ((WeekDay(DateSerial _
    (Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
    If woche = 0 Then
        woche = kw(DateSerial(Year(dat) - 1, 12, 31))
    ElseIf woche = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) _
    Mod 7 <= 3 Then
        woche = 1
    End If

---

aka

Code:

---

=KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In diesem Beitrag geht es auch um die Kalenderwoche...

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP