grootste en kleinste waarde

[romarx]

Hoe kan ik uit een kolom met positieve en negatieve getallen de grootste en de kleinste reeks getallen filteren?

bijvoorbeeld als in kolom A de volgende getallen staan:

12
3
4
-4
-6
5
3
-6
-1
3


Dan is de grootste reeks van getallen 19 (12+3+4) en de kleinste reeks is -10 (-6 en -4)

Hoe kan ik excel dit resultaat laten weergeven in een cel

 

[Imod]

Ik kan geen verband zien in de reeks die je opgeeft
Reeks is toch opvolgend??
In voorbeeld is dat niet zo

mvg Imod

 

[jzeedijk]

Hoi Romarx,

Je hebt er een extra kolom voor nodig:
Als in A11:A20 de getallen staan zet je in B11 (of een andere kolom)
B11: =(POS.NEG(A10)=POS.NEG(A11))*B10+A11

In het bereik B11:B20 krijg je nu de optelling te zien zolang de waarden positief of negatief zijn. Hiervan neem je Max en Min voor de hoogste en de laagste reeks.

Jeroen

 

[romarx]

SORRY MIJN FOUT

IK BEDOEL HET OP DEZE MANIER:

in kolom A (van A10 tot en met A22):

2
3
4
0
0
-2
-4
3
0
0
0
2
3

in kolom B staat dan in cel B12 de som van A10, A11 en A12). In cel B17 staat het resultaat van A15+A16+A17)

de subresultaten uit kolom B wil ik in Kolom C direct onder elkaar hebben zodat er een mooi overzicht ontstaat.

hoe kan ik dit voor elkaar krijgen. ik heb zelf de filter functie geprobeerd maar dit werkt maar voor 1 kolom en ik wil de bovenstaande uitleg op meerdere kolommen tegelijk uitvoeren (de kolommen B, E, H, K, en N )

 

[Hans123]

Romarx,

Door onderstaande 2 functies naar een macroblad te kopieren kun je in een werkblad de functies gebruiken.

Voor de grootste positieve reeks in de cel invullen:
=maxreeks_pos("A10:A22"). voor de range A10:a22.

Voor de negatieve reeks , maxreeks_neg("A10:A22") gebruiken.



Function maxreeks_pos(target As Range)
Dim testcel As Range
waarde = 0
For Each testcel In target
If testcel.Value > 0 Then
waarde = waarde + testcel.Value
Else
If waarde > Max Then
Max = waarde
End If
waarde = 0
End If
Next testcel
maxreeks_pos = Max
End Function

Function maxreeks_neg(target As Range)
Dim testcel As Range
waarde = 0
For Each testcel In target
If testcel.Value < 0 Then
waarde = waarde + testcel.Value
Else
If waarde < Min Then
Min = waarde
End If
waarde = 0
End If
Next testcel
maxreeks_neg = Min
End Function