Gibt es eine Formel, wenn ich z.B. in Zelle A1 das Datum eingebe, die mir in Zelle B1 die Kalenderwoche zeigt. Und auch umgedreht wenn ich Zelle z.B. in Zelle B1 die Kalenderwoche schreibe, das dann in Zelle B2 die Woche genannt wird.
Function KalWo(d As Date) As Integer
Dim Don As Date
Dim Jahr As Integer
Dim Wochen As Integer
Don = d - Weekday(d, vbMonday) + 4
Jahr = Year(Don)
Wochen = ((Don - DateSerial(Jahr, 1, 1)) \ 7) + 1
KalWo = Wochen
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen