Mit oWS
FormulaRow =. Zellen (. Rows.Count, „d“). Ende (- 4162). Reihe + 'xlUp 2
.range („c“ u. FormulaRow u.“: f " u. FormulaRow). Formel = „=SUM (c2: c“ u. (FormulaRow - 2) u. ") „
. Cells.Font.Size = 10
. Reihen (1).Font.Bold = ausrichten en
.UsedRange.EntireColumn.AutoFit
.range („H: J“) .NumberFormat = „0.00%; [Rot] 0.00%“
.range („C: F“) .NumberFormat = „#, ##0.00; [Rot] #, ##0.00“
Ende mit
|