Gemiddelde uitrekenen in een bepaald bereik

[popipipo]

Dat wordt dus een stuk lastiger.
Excel vind het prettig als dezelfde gegeven in de zelfde kolom of rij zitten

In dezelfde kolom of rij staan nu verschillende gegevens.
Nu heb je allerlei blokjes met dezelfde gegevens.

Ik zou het op je eerste layout houden dat vind ik wel zo logisch en duidelijk.

 

[sylvester-ponte]

reactie op post 4.

Sylvester-ponte ook bedankt maar ik werk in dit geval liever niet met een VBA ivm het verdwijnen van de functie 'vorige'.

wat bedoel je?
terug zetten met "undo" gaat nog steeds.

 

[HJ25]

De functie ongedaan maken verdwijnt vaak wanneer je gebruik maakt van een VBA. Daarom gebruik ik liever de VBA niet

 

[HJ25]

Dat wordt dus een stuk lastiger.
Excel vind het prettig als dezelfde gegeven in de zelfde kolom of rij zitten

In dezelfde kolom of rij staan nu verschillende gegevens.
Nu heb je allerlei blokjes met dezelfde gegevens.

Ik zou het op je eerste layout houden dat vind ik wel zo logisch en duidelijk.

Okee toch bedankt! Ik laat hem nog even staan want misschien weet iemand hier toch nog een trucje voor!

 

[popipipo]

De functie ongedaan maken verdwijnt vaak wanneer je gebruik maakt van een VBA

'Vaak' is overdreven
Alleen bij 'worksheet events' is dit het geval.

 

[sylvester-ponte]

De functie ongedaan maken verdwijnt vaak wanneer je gebruik maakt van een VBA
'Vaak' is overdreven
Alleen bij 'worksheet events' is dit het geval.

en dat is bij een function nooit het geval.

dus als je de undo geprobeerd had .....

 

[HJ25]

gemiddelde groene vakjes:

Function GemiddeldeInKleur(R As Range, Kleur As Range)
    Dim C As Range
    Dim Som As Double
    Dim Aantal As Long
    For Each C In R
        If C.Interior.Color = Kleur.Interior.Color And C <> 0 Then
            Aantal = Aantal + 1
            Som = Som + C
        End If
    Next
    If Aantal <> 0 Then GemiddeldeInKleur = Som / Aantal
End Function

zie voorbeeld gele vakje ( voor de kleur selecteer je een vakje met die kleur ):

Is het ook aan te passen zodat hij in rij 12 kijkt voor het gemiddelde van de getallen met een bepaalde kleur?

 

[sylvester-ponte]

Function GemiddeldeInKleur(R As Range, Kleur As Range)
    Dim C As Range
    Dim Som As Double
    Dim Aantal As Long
    For Each C In R
        If C.Interior.Color = Kleur.Interior.Color And C <> "" Then
            Aantal = Aantal + 1
            Som = Som + C
        End If
    Next
    If Aantal <> 0 Then GemiddeldeInKleur = Som / Aantal
End Function

met deze function is het goed mogenlijk zie voorbeeld:
wel je kleurtjes goed invullen