Kalenderwoche plötzlich falsch

[freddy]

Hallo zusammen, und einen schönen Sonntag

Seit 2008 Funktioniert meine Private Zeit Erfassung mit Datum und Kalender Woche ohne Probleme

aber seit diesem Jahr stimmt das Datum und die Kalender Woche nicht mehr Überein am Schaltjahr kann es
ja eigentlich nicht liegen denn 2012 war ja auch eines und da hatte ich das Phänomen nicht genau gesagt

mein Code für die KW liefert mir immer das Datum von einer Woche zuvor

Code:

Public Sub Kalenderwoche_Ermitteln()

On Error GoTo Fehler
      AktuellesDatum = Date

If IsEmpty(AktuellesDatum) Then Exit Sub

If Not IsDate(AktuellesDatum) Then
   MsgBox "Ungültiges Datum"
   Exit Sub
End If
 
 Cells(1, 2) = "Die Aktuelle Kalenderwoche für den " & AktuellesDatum & "   ist die Nr.:   " & DIN_KW(AktuellesDatum)
 
 ActiveSheet.Cells(8, 8) = DIN_KW(AktuellesDatum)
 Sheets("Stammblatt").Range("KWZelle") = DIN_KW(AktuellesDatum)
 Sheets("Stammblatt").Range("Q1") = DIN_KW(AktuellesDatum)
Exit Sub

Fehler:
MsgBox Err.Description
End Sub

Public Function DIN_KW(DasDatum As Date) As Byte
KW = 5 + DasDatum - Weekday(DasDatum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function

[schauan]

Hallo Fredda,

schaue Dir den Beitrag mal an, da gibt es einen kleinen Unterschied

http://www.online-excel.de/excel/singsel_vba.php?f=48

Wenn Du nicht mehr mit älteren Excelversionen zu tun hast, geht im Prinzip auch

Application.Evaluate("WEEKNUM(TODAY(),21)")

Statt heute dann natürlich Dein Datum.

[freddy]

Servus Andre,

Nun hab ich es auch kappiert,
Da der 01.01.2016 ein Freitag ist haut es nicht mehr hin mit Deinem Code klappts wieder


Danke