AutoFill weeknr in kolom L (variabel aantal rijen)

[Yasmin]

Beste Excellers,

In cel L2 heb ik met een formule het weeknummer a.d.h.v. de datum(K1) berekend.
Nu wil ik in een macro deze formule in kolom L doortrekken t/m de laatste rij.
Omdat het aantal rijen variabel is kan ik niet het laatste rij nummer meegeven.
Wie kan mij helpen met een goed werkende code hiervoor?

Bij voorbaat dank.

Sub Weeknr()
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-1],2)"
    Selection.AutoFill Destination:=Range("L2:L")
    Range("M2").Select
End Sub

 

[Haije]

Yasmin, waar is je voorbeeld Excelbestand?

 

[Yasmin]

Hierbij het voorbeeld.

 

[Haije]

zie bijlage

 

[Yasmin]

Bedankt Haije,

Het werkt!

 

[VenA]

of

Sub VenA()
  Columns(11).SpecialCells(2, 1).Offset(, 1).FormulaR1C1 = "=WEEKNUM(RC[-1],2)"
End Sub

 

[Yasmin]

Bedankt VenA

Korte code die ook prima werkt.

 

[Ginger]

Waarom een formule via vba plaatsen en daarna door vba zelfs laten door kopiëren??? Dit gaat toch simpeler in Excel zelf?