VBA - variable Kalenderwoche
07.10.2016 13:17:55
Nik
ich habe eine Tabelle bei der in Zelle Q1 die aktuelle Woche beginnt, fortlaufend betitelt mit "SCHD REQ WK1" bis "SCHD REQ WK40" in Zelle "BD1".
Ich habe nun ein Makro, welches in Zeile "BP2" das aktuelle Datum schreibt.
Des weiteren schreibt das Makro eine Formel in Zelle "Q1" mit Bezug auf "BP2" welche die aktuelle Kalenderwoche ausrechnet und wiedergibt.
In Zelle "R1" kommt eine weitere Formel, mit Bezug auf "Q1", welche für die folgenden 40 Wochen die richtige KW, jahresübergreifend, ausgibt.
Problem: Manchmal beginnen die Kalenderwochen in Zelle "Q1" und manchmal in "S1"
Frage: Wie kann ich es anstellen, dass mein Makro das automatisch erkennt und die Formel anpasst, sodass immer von WK1 bis WK40 die richtigen Kalenderwochen, angefangen von der aktuellen Kalenderwoche zum Zeitpunkts des Auslesens, eingetragen werden?
Zum besseren Verständnis hier das Excel File:
https://www.herber.de/bbs/user/108645.xlsm
Sub Kalenderwoche_LAB()
Range("BP2") = Date
Range("Q1").Select
ActiveCell.FormulaR1C1 = _
"=TRUNC((R[1]C[51]-DATE(YEAR(R[1]C[51]+3-MOD(R[1]C[51]-2,7)),1,MOD(R[1]C[51]-2,7)-9))/7)"
Range("R1").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=52+(DAY(346-MOD(""2.1.""&YEAR(RC17),7)+(""1-""&YEAR(RC17)))