plakken op basis van weeknummer in een voorbenoemd bereik / named range

[Peer44]

Hallo,

de bedoeling is om een wekelijkse aangifte te kunnen maken, waarbij er beschikbaar is een jaartotaal en een weektotaal, deze weektotalen wil ik plakken in een named range bv week 1, week 2 etc.

als de data opgehaald wordt geeft men het betreffende weeknummer in bv week 2, dit is in een vaste cel. het resultaat wil ik kopieren en vervolgens plakken in het juiste bereik zijnde week 2.

nu kan ik kijken wat het jaartotaal is door alle weken bij elkaar te tellen, en wat het jaartotaal is op basis van echte jaar totalen, het verschil is dan hetgene wat moet worden aangegeven.

(de reden dat ik dit wil kopieren en plakken is, dat na afloop van een week er toch nog ooit in gemuteerd wordt en dit moet dan achteraf alsnog worden aagegeven)

ik hoop dat iemand mij verder kan helpen.

alvast bedankt.
Peter

 

[Emil S]

met dit misschien:

Sub NaarBenoemdeWeek()
Dim rBron As Range
Dim WeekNr As Integer
Dim mTmp As Variant

    With Sheets("blad1")
        Set rBron = .Range("c3:f7")
        WeekNr = .Range("d2")
    End With
    mTmp = rBron
    Range("Week" & WeekNr) = mTmp
    Erase mTmp
    ActiveSheet.Next.Select
End Sub

 

[Peer44]

Hallo Emil S,

je code werkt prima!

bedankt!