count en filter

[deheugden]

ik heb een kolom met namen.ik wil deze namen optellen =COUNT(A2:A189) maar ik krijg een waarde van 0 wat doe ik fout? deze kolom met namen bevat ook dubbele namen,is het ook mogelijk om die te filteren opdat ze maar 1x meegeteld worden en niet 3 keer als ze bijv. 3 keer voorkomen? bedankt.

edit: count heb ik vervangen door counta; count blijkt namelijk alleen voor getallen te zijn.het filteren op naam is nog niet gelukt.

 

[CorVerm]

Gebruik de functie COUNTA, in het Nederlands : AANTALARG.
Wat betreft de dubbelen: zoek even op dit forum en je komt ongetwijffeld een aantal voorbeelden tegen.

 

[deheugden]

ik was al aan het proberen met filter,maar dan moet je altijd een waarde toevoegen voorzover ik kan zien;dus dat is geen goede optie

 

[Wigi]

Zie hier bij Chip Pearson.

 

[jpvs]

Of probeer deze macro om de dubbels er uit te halen :

Sub OntdubbelenKiesPlaats()
Dim PlakPlaats As Range
On Error Resume Next
Set PlakPlaats = Application.InputBox _
(Prompt:="Geef een cel op, waar u de lijst wilt plakken.", Type:=8)
    If PlakPlaats Is Nothing Then Exit Sub
   
    Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=PlakPlaats.Cells(1, 1), Unique:=True

If MsgBox("Zal ik de nieuwe lijst ook meteen sorteren?", _
vbYesNo + vbDefaultButton1 + vbQuestion, "Sorteren?") = vbYes Then
PlakPlaats.Range("A1:A6000").Sort _
    Key1:=PlakPlaats.Cells(1, 1), _
    Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
    
    If MsgBox("Mag ik de oorspronkelijke gegevens verwijderen?", _
    vbYesNo + vbDefaultButton2 + vbQuestion, "Opschonen") = vbYes Then
    Columns("A:A").Delete
End If

PlakPlaats.Cells(1, 1).Select
End Sub

Pierre

 

[deheugden]

great.zal het testen.