tellen onder voorwaarden per unieke ID

[ReneAchterberg]

Beste allen,

Ik heb een lijst met heel veel waarnemingen. Meerdere unieke ID’s hebben op verschillende datums metingen gedaan. Ik wil graag per ID tellen hoeveel metingen groter dan 15 zijn. (zie bijlage). De lijst met metingen word wekelijks aangevuld, dus e.e.a. moet liefst dynamisch zijn, dus met een formule, of wellicht een simpele macro? Een lijst met de unieke ID's heb ik al laten maken (macro met advanced filter).

Heeft iemand een idee hoe dit aan te pakken?

Groet
René

 

[AlexCEL]

Voldoet dit?

Bekijk bijlage voorbeeld AC.xlsx

In 1 kolom worden de unieke waarden opgezocht, in kolom daarnaast geteld hoe vaak deze waarde i.c.m. voorwaarde >15 voorkomt.

 

[snb]

Had de draaitabel al bekeken ?

 

[Warme bakkertje]

Of alles in 1 keer (unieke items en telling)

Sub tst()
    sn = Sheets("Sheet1").Cells(1).CurrentRegion.Value
    With CreateObject("scripting.dictionary")
        For i = 2 To UBound(sn)
            If Not .exists(sn(i, 1)) And sn(i, 3) > 15 Then
                .Add sn(i, 1), 1
            Else
                If .exists(sn(i, 1)) And sn(i, 3) > 15 Then .Item(sn(i, 1)) = .Item(sn(i, 1)) + 1
            End If
        Next
        a = Application.Transpose(Array(.keys, .items))
    End With
    Range("E1").Resize(UBound(a, 1), 2) = a
End Sub

 

[AlexCEL]

Mooi.

@snb: hoe voeg ik een berekend veld toe in een draaitabel dat waarden > 15 telt? Ben wat aan het experimenteren maar krijg dit nog niet helemaal voor elkaar...

 

[snb]

Bv.


@WB

Dit lijkt me voldoende:

Sub M_snb()
    sn = Sheets("Sheet1").Cells(1).CurrentRegion.Value
    
    With CreateObject("scripting.dictionary")
        For j = 2 To UBound(sn)
            If sn(j, 3) > 15 Then .Item(sn(j, 1)) = .Item(sn(j, 1)) + 1
        Next

        Cells(1, 11).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
    End With
End Sub

 

[AlexCEL]

Aha. Een hulpkolom. Dat kan natuurlijk ook. Thnx.