VBA gemiddelde berekenen met voorwaarden

[KeBr]

Beste,

Ik heb een document dat dynamisch moet zijn, hierin wil ik graag op basis van voorwaarden een gemiddelde berekenen.
-in rij 1 hebben een aantal cellen en nummer, steeds met dezelfde afstand.
- In D7 dient een waarde ingevuld te worden, deze is variabel
- In D11 dient het gemiddelde te komen van de cellen uit rij 11 waarbij de waarde in rij 1 groter is dan 0 (Waarde uit kolommen waarbij in rij 1 een waarde staat)
- de opgeven waarde in D7 moet altijd vanaf G6 beginnen te tellen.
- indien de cellen waarover het gemiddelde berekend wordt een 0 waarde bevatten mogen deze niet meegeteld worden, dus ook niet om te middelen.

In B4 staat een knop die vanuit VBA een blok invoegt.

Bij voorbaat dank voor reacties.

 

[popipipo]

Ik zou er geen €0 in een cel zetten als het niet nodig is dat maakt het, wat mij betreft, zeer onoverzichtelijk.
Als je dus de 0 weg laat en via formules er voor zorgt dat er ook geen 0 komt te staan wordt alles veel eenvoudiger.
Tevens gaat het gemiddelde dan gewoon goed.

In voorbeeld regels 11 tm 25 aangepast.

 

[KeBr]

Beste,

bedankt voor je reactie, hiermee wordt het wel overzichterlijker, daar heb je gelijk in. echter is het nog niet dynamisch, dus dat waarde berekend word over de cellen met het aantal kolommen zoals in D7 aangegeven.

 

[KeBr]

nieuw voorbeeld

Ik heb een vereenvoudigd voorbeeld bijgesloten.

 

[popipipo]

Denk dat je dit met het dynamische getal in D7 bedoelt
Bekijk formule in cel D19

 

[KeBr]

Beste Popipipo,

Bedankt zover, dit is een goede oplossing.
Is het ook nog mogelijk dat er alleen een gemiddelde berekend word als de waarde in de cellen groter is dan 0.
concreet: als in D7 3 staat wordt het gemiddelde van H11 + K11 + N11 als b.v. in K11 "0" staat zou het gemiddelde dus maar over 2 waarde berekend mogen worden.

 

[popipipo]

Bedoel je exact 0 of afgerond 0?

 

[KeBr]

Ik bedoel echt 0, dus er is geen waarde. Dit houd in dat de gele cellen geen waarde hebben, anders zou er iets komen te staan

 

[KeBr]

een aanvulling, er staat dan wel een formule in de cel die als uitkomst 0 heeft

 

[popipipo]

Zorg er voor dat de uitkomt van de formule niet 0 wordt maar dat deze leeg is dus ""
Een lege cel wordt niet meegerekend met het gemiddelde.

=als([I]formule[/I]=0;""; [I]formule[/I])

 

[KeBr]

Beste Popipipo,

Bedankt, dit werk in elk geval prima.
nog ene laatste vraag, kan dit ook in VBA geschreven worden. Ik vraag dit omdat meerdere personen in het document gaan werken en regels toe kunnen voegen waarbij ze de formules dan niet goed doorvoeren.
De macro zou dan voor het bereik in kolom D moeten gelden.

 

[popipipo]

Voor vba moet je bij iemand anders zijn, dat is niet mijn ding.

 

[KeBr]

Bedankt

In elk geval bedankt voor al je reacties. ik kan hiermee voorlopig verder. mocht er nog iemand zijn die het in VBA kan zetten dan hoor ik dat graag.

 

[emields]

bedoel je zoiets?

 

[KeBr]

Bedankt

Beste emields,

Bedankt voor deze VBA, ook deze doet wat er verwacht wordt.
Nu is het geheel compleet.

 

[KeBr]

Beste emields,

Er blijkt nog een probleem met de macro te zijn.
Indien er een nul waarde staat in een cel mag deze niet meegerekend worden.
hiervoor heb ik een formule in de cellen gezet zodat deze blanco ("") worden als er geen bedragen zijn ingevuld.

Echter de macro stopt nu bij de eerste lege cel.

Ook worden er gemiddelde weergegeven als alle cellen in de regel leeg zijn.

zie bijlage

 

[emields]

Code aangepast, en uitgebreid.

 

[KeBr]

Nog een fout in code

Beste emields,

De toevoeging dat er voldoende projecten moeten zijn is zeer welkom, bedankt hiervoor.

De code doet echter nog niet wat moet, Ik heb nu in G12 geen bedrag ingevuld, betekent dat H12 leeg is (""). de code zou dan nog wel het gemiddelde moeten bereken over de andere projecten op die regel.

zie bijlage waarin dit is weergegeven.

 

[emields]

Wat te sbnel de code veranderd zonder echt te controleren zou bij deze moeten opgelost zijn.

 

[KeBr]

Bedankt voor de aanpassing, het werkt nu prima.