Benötige einen einfachen VBA Code zum Errechnen der Kalenderwoche aus Spalte A und Eintragen des Ergebnisses in Spalte B.
Ich weiss, wurde sicher schon oft gefragt, trotzdem danke für eure Hilfe!!!
Hubert
Function DINKwoche(Datum)
Dim tmp
tmp = DateSerial(Year(Datum + (8 - WeekDay(Datum)) Mod 7 - 3), 1, 1)
DINKwoche = ((Datum - tmp - 3 + (WeekDay(tmp) + 1) Mod 7)) \ 7 + 1
End Function