Excel

From Blue-IT.org Wiki

Revision as of 09:37, 9 July 2014 by Apos (talk | contribs)

Kalenderwoche

ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""0"",TRUNC((RC[-25]-DATE(YEAR(RC[-25]+4-WEEKDAY(RC[-25],2)),1,-9+WEEKDAY(RC[-25],3)))/7),"" / "",YEAR(RC[-25]))"