Het aantal verschillende waarden in een bereik tellen - Pagina 2

jurgen blokzijl · #11 4 februari 2012, 15:31

bij het toepassen op de reeks voornamen, geeft de formule als resultaat 0. mBIj de getallenreeks geeft de formule keurig de waarde 6.

bsalv · #12 4 februari 2012, 15:36

mijn functie in #8 telt alles, getallen teksten etc

jurgen blokzijl · #13 4 februari 2012, 16:28

bsalv,

Helemaal top! dit werkt goed. Nu alleen nog zien of ik ook een weergave kan maken van de waarden die hij optelt. Ofwel, de namen van de leveranciers die in betreffende bestelling voorkomen. Ben benieuwd of daar ook een oplossing voor is (vast wel, het is excel)

TOt zover heel hartelijke dank voor de hulp.

bsalv · #14 4 februari 2012, 17:06

Code:

Function Weergeven_Bart(bereik)
  Dim MyColl As New Collection, c As Range, it As Variant
  On Error Resume Next
  For Each c In bereik.Cells
    If c <> "" Then MyColl.Add Item:=c.Value, key:=CStr(c.Value)
  Next
  On Error GoTo 0
  For Each it In MyColl
  Weergeven_Bart = Weergeven_Bart & it & "|"
  Next
End Function

maar anders zou ik er een draaitabel van maken ofwel zoals hoger al aangegeven uitgebreid filteren met unieke records

snb · #15 4 februari 2012, 17:43

omdat jouw reeks niet in rij 1 begon, vergde de formule enige aanpassing.

Code:

 
Function F_count_distinct_snb(c01)
    F_count_distinct_snb = Evaluate("Sum(N(countif(offset(" & c01.Cells(1).Address & ",,,row(" & c01.Address & ")-row(" & c01.Cells(1).Address & ")+1)," & c01.Address(0, 0) & ")=1))")
End Function

wil je de waarden hebben gebruik dan:

Code:

Function F_count_distinct_snb2(c01)
    F_count_distinct_snb2 = Join(Filter(Evaluate("transpose(If(countif(offset(" & c01.Cells(1).Address & ",,,row(" & c01.Address & ")-row(" & c01.Cells(1).Address & ")+1)," & c01.Address(0, 0) & ")=1," & c01.Address & ",""~""))"), "~", False), "|")
End Function

jurgen blokzijl · #16 5 februari 2012, 19:32

mooi. ik kom steeds verder. Kan nu ook al de gevonden waarden weergeven. Echter alle in 1 cel. Bestaat er een mogelijkheid de gevonden waarden alle weer te geven in een separate cel ?

Of is werken met een draaitabel echt makkelijker (ken dit geheel niet, dus moet daar dan mee aan het proberen slaan)

snb, zo beter ?

RedHead · #17 5 februari 2012, 21:54

Citaat:

Oorspronkelijk geplaatst door jurgen blokzijl

Bestaat er een mogelijkheid de gevonden waarden alle weer te geven in een separate cel ?

Nee, althans niet met een functie. Deze geeft een waarde terug op de plek waar de functie is gebruikt. Via een SUB-procedure zou je wel de waarde in meerdere cellen kunnen spreiden, maar wat word je daar beter van?

Groet, Leo

owen meany · #18 5 februari 2012, 22:28

In de bijlage wordt het aantal unieke waarden geteld en een lijst gegeven met de unieke waarden (of het nu getallen en/of tekst is).

zie bijlage.

snb · #19 5 februari 2012, 22:44

@jurgen: veel beter :)

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
Aantal verschillende datums tellen	siljan	Afgehandelde vragen	3	31 oktober 2011 22:42
3 vaste waarden en 1 variabelen (aantal tellen)	jorenl	Afgehandelde vragen	6	29 september 2011 19:32
Aantal waarden optellen met verschillende omschrijvingen	Imtech02-11	Afgehandelde vragen	2	29 december 2010 11:44
aantal gelijke waarden tellen	Tante Bar	Afgehandelde vragen	5	5 november 2010 09:25
aantal verschillende waardes tellen	nickskee	Afgehandelde vragen	2	15 september 2008 14:45