Rekenkundig gemiddelde + offset vraagje

[Marco Hoeksma]

Hallooo,

Ik heb weer twee puntjes waar ik op vastloop! Ik heb de vragen in het excel bestand geschreven op het 'Invoerscherm' tabblad.

Graag hulp! Alvast bedankt!

Met vriendelijke groet,

Marco Hoeksma

 

[Wigi]

Voor de oranje velden:

Sub waardeovernemen()
    Sheets("Blad1").Range("I11") = Sheets("Invoerscherm").Range("R20")
End Sub

 

[Wigi]

Rekenkundig gemiddelde: waar wordt er aangegeven welke maanden er in het gemiddelde moeten zitten?

 

[Marco Hoeksma]

Je begint bij 1 jan... Die waarde telt 1x (dat is altijd zo!) ! De daaropvolgende maanden telt de waarde 2x mee (want bijvoorbeeld: 28 februari én 1 maart (vandaar die 2x), daarna weer 31 maart, en 1 april etc.)

Tot de laatst ingevulde maand... Dus je hebt nu bijvoorbeeld het laatst de waarde van augustus ingevoerd, deze telt dan één keer (want alleen 30 augustus telt en niet alvast 1 september)

Dit totaal dient dan door 16 te worden gedeeld, aangezien: (1x+2x+2x+2x+2x+2x+2x+2x+1x)

Wanneer je dus december het laatst hebt ingevuld dan is de formule weer anders en dus delen door 24 (1x+2x+2x+2x+2x+2x+2x+2x+2x+2x+2x+2x+1X)

 

[Wigi]

Allemaal goed en wel, maar hoe weten we tot welke maand er moet geteld worden? Tot maart? September? Hoe wordt dat bepaald?

 

[Marco Hoeksma]

Dat is de laatst ingevule maand! Dus eind september bijvoorbeeld vul je de waarde van september in! En dit is dan de laatste en deze moet dan 1x... De volgende maand vul oktober in en dan telt september weer 2x en nu oktober 1x

Sorry voor de vage uitleg, maar weet niet hoe ik het anders moet uitleggen!

 

[Wigi]

Dat is de laatst ingevule maand! Dus eind september bijvoorbeeld vul je de waarde van september in! En dit is dan de laatste en deze moet dan 1x... De volgende maand vul oktober in en dan telt september weer 2x en nu oktober 1x

Sorry voor de vage uitleg, maar weet niet hoe ik het anders moet uitleggen!

Ik begrijp de bedoeling, maar in welke cel staat dan de maand(nummer)? Hoe kan ik weten dat augustus werd ingevuld of een andere maand?

 

[Marco Hoeksma]

Hmmm, ik dacht misschien is er een formule voor deze berekening in Excel te maken! Ik heb zelf een oplossinkje met een omweg...

 

[Marco Hoeksma]

Toch nog een vraag over dat overzetten... Die functie van jou, Wigi, werkte niet... weet niet was mis ging...

ben nu zelf verder aan het klooien geslagen... dit heb ik eruit:

With Sheets("Invoerscherm" + 1).Cells(10, 8)
.Offset(1) = Range("R20")
End With

Wat klopt hier dan niet aan?!

 

[Marco Hoeksma]

Hooooo, sorry! Ik zat dom te doen! (uiteraard )

Je code werkte toch wel! Paste hem alleen verkeerd toe!

TOP!! Bedankt weer!

 

[Wigi]

Ik begrijp de bedoeling, maar in welke cel staat dan de maand(nummer)? Hoe kan ik weten dat augustus werd ingevuld of een andere maand?

En weet je hier al een antwoord op?

 

[Marco Hoeksma]

Nou ja, ik heb er zelf iets op gevonden! Een beetje met een omweg, maar het is goed genoeg! Bedankt even goed voor het meedenken!

 

[Wigi]

Nou ja, ik heb er zelf iets op gevonden! Een beetje met een omweg, maar het is goed genoeg! Bedankt even goed voor het meedenken!

OK dan. Veel plezier ermee en prettig weekend.

Wigi