aantal unieke waarden in niet ververborgen cellen van een opgegeven gebied

[sylvester-ponte]

hallo

is daar iets voor?
aantal unieke waarden in niet ververborgen cellen van een opgegeven gebied.

als ik een funcion programmeer en ik gebruik Gebied.SpecialCells(xlCellTypeVisible)

dan werkt dat prima als hij met een macro wordt aangeroepen.
maar als ik hem als formule gebruik in mijn sheet werkt SpecialCells niet meer en gebruikt hij het hele gebied.
het gebied is gesorteerd.
misschien weet iemand iets te verzinnen met subtotaal
mij lukt het niet.

groet sylvester

 

[Thoralf]

Neem in een hulpkolom bij de volgende formule op:
=SUBTOTAAL(3;$H$2:H489)
Deze formule komt uit de rij 489.

 

[WHER]

Een klein voorbeeld (20 rijen).

 

[sylvester-ponte]

WHER

bij mij werkte het niet helemaal
ik heb nu toch maar een function gemaakt:

Function AantalZichtbareUnieken(Ra As Range)
    Dim I As Range
    Dim Col As New Collection
    For Each I In Ra
        If I.EntireRow.Hidden = False Then
            On Error Resume Next 'GoTo volgende
                Col.Add Item:=I, key:=CStr(I)
                If Err.Number <> 457 And Err.Number <> 0 Then
                    AantalZichtbareUnieken = 0
                    Exit Function
                End If
            On Error GoTo 0
        End If
    Next I
    AantalZichtbareUnieken = Col.Count
End Function

bedankt allemaal:thumb: voor het meedenken

groet sylvester

 

[WHER]

Jouw function en de formule geven nochtans hetzelfde resultaat.

 

[sylvester-ponte]

hallo WHER

als ik zelf een rij vergerg ontstaat er verschil:
Bekijk bijlage zichtbaarUniek3.xls


groet

 

[cow18]

kleine correctie : je mag die rij zo niet verbergen, je moet de rijhoogte naar 0 brengen, dan kloppen de cijfers wel met subtotaal(103; ...) !!! Voor meer uitleg moet je Bill bij MS even bellen.

 

[WHER]

Ik ging er van uit dat de niet-zichtbare rijen het resultaat waren van een filter.