Antal forskellige i en liste

Kig på disse links

http://groups.google.dk/group/microsoft.public.excel.worksheet.functions/browse_thread/thread/d3670b77254a9054/2d0056052832afbe?lnk=st&q=count+unique+group:microsoft.public.excel.worksheet.functions&rnum=2&hl=da#2d0056052832afbe

http://groups.google.dk/group/microsoft.public.excel.worksheet.functions/browse_thread/thread/327b6a67d68bbdb5/fc5ed9124c7aaa41?lnk=st&q=count+unique+group:microsoft.public.excel.worksheet.functions&rnum=6&hl=da#fc5ed9124c7aaa41

Det første link peger helt klart i den rigtige retning. Der er bare lige det at min sammentælling skal laves på en liste som ændrer sig hele tiden (ex. forskellige måneder, kunder eller lign.) Vil det være muligt at gøre noget tilsvarende, med DFUNKTIONER. Jeg kan ikke lige konvertere det da der ikke eksisterer en DSUMPRODUCT funktion.

brug en pivottabel.

du skal ikke tage fakturanummer med

En pivottabel kan godt lave unike grupper, men den kan ikke tælle hvor mange forskellige der er. Iøvrigt er alt organiseret i en pivottabel. At fjerne fakturanumrene bare fordi de ikke er relevante for netop dette spørgsmål synes mig unødvendigt.

Denne formel kan gøre det
=SUM(1/TÆL.HVIS(A2:A1000;A2:A1000))
Afslut indtastning med ctcl-shift -enter istedet for bare enter.

sorry, så ikke lige at det jo netop var det der stod i flemmings liks. Den formel bliver nu nok alligel for langsom  på 10000 rækker :-)

Denne funktion er hurtigere

Function CountUniq(Omraade As Range)
Dim AllCells As Variant, cell As Variant
Dim Uniqs As New Collection
Dim strCheck As String

  Set AllCells = Omraade
  On Error Resume Next
  For Each cell In AllCells
      Uniqs.Add cell.Value, CStr(cell.Value)
  Next cell
  CountUniq = Uniqs.Count
  Set Uniqs = Nothing
  Set AllCells = Nothing
End Function

Fint BAK - jeg har jo selvfølgelig som så ofte før lavet funtionen, så jeg synes den er pæn :-)

Her er to forskellige udgaver.
-fælles for dem begge er Application.Volatile, hvilket får funktionen til at genberegne sig hvergang regnearket beregnes (vigtig lille detalje - men måske vild for meget store områder)
-den første er lavet med For Each og den sidste med en For Next - tidligere udgaver af Excel har problemer med funktioner, som indeholder For Each løkker.

Public Function CountUniqueCells(ByVal Area As Range)
    Dim rCell As Range
    Dim colUniques As New Collection
    Application.Volatile

    On Error Resume Next
    For Each rCell In Area.Cells
        colUniques.Add rCell.Value, CStr(rCell.Value)
    Next rCell
    On Error GoTo 0

    CountUniqueCells = colUniques.Count
    Set colUniques = Nothing
End Function


Public Function CountUniqueCells(ByVal Area As Range)
    Dim lRow As Long
    Dim lCol As Long
    Dim colUniques As New Collection
    Application.Volatile

    On Error Resume Next
    For lCol = 1 To Area.Columns.Count
        For lRow = 1 To Area.Rows.Count
            colUniques.Add Area.Cells(lRow, lCol).Value, CStr(Area.Cells(lRow, lCol).Value)
        Next lRow
    Next lCol
    On Error GoTo 0

    CountUniqueCells = colUniques.Count
    Set colUniques = Nothing
End Function

Her er en lidt kortere model til pivottabeller
rgPT er en tilfældig celle i pivottabellen
vFieldName er Headeren/overskriften på det felt der ønskes talt (enten som celle eller som tekst. Tekst skal have apostroffer om

Public Function PivotCount(ByRef rgPT As Range, ByVal vFieldName As Variant) As Long
  PivotCount = rgPT.PivotTable.PivotFields(CStr(vFieldName)).PivotItems.Count
End Function

bruges
=PivotCount(A4; "Kundenavn")
eller
PivotCount(A4; A6) hvor A6 indeholder overskrifter Kundenavn

Hej flemming, velkommen til overfladen :-)
Jeps, det er en pæn og hurtig funktion og det er netop pga. beregningstiden jeg ikke har taget volatile med.

Thanks - bliver dog ikke så ofte jeg kigger forbi - jeg har travlt med mit lille firma :-)

okey, er du startet for dig ? sejt :-)
Skal du bruge hjælp til noget så ring/skriv ....

Jeg kan mærke at det er et par garvede gutter jeg her har fået på opgaven. Hvad gør en mindre garvet som mig? Jeg er rimeligt habil til excel men har aldrig lært en linie VB og jeg aner ikke hvordan man aktiverer sådan en programstump.
Så spørgsmålet er: Kan det kort forklares hvordan jeg implementerer det, eller findes der en måde at få denne kode omsat i en formel?

Smiler - aktivering af en vba funktion for dummies :-)

Kopier funktionen her fra siden
Start Excel
Åben dit regneark (går det for hurtigt? *gg*)
Tryk Alt+F11 (nu starter der et helt nyt program)
I menuen vælger du "Insert->Module" (en hvid "side" åbnes)
Paste funktionen ind på denne "hvide side" (også kaldet et modul eller kodemodul)
Husk navnet på funktionen f.eks. CountUniqueCells
Luk dette "Microsoft Visual Basic" med krydset i højre hjørne.
I excel stille du dig i en celle og skriver 
=CountUniqueCells(område)
hvor område f.eks. er A1:F20 (eller netop det område du vil have talt for unique celler

Hej igen,
Ja, undskyld mig, men dit første svar fik mig til at søge videre på andre databaser og resultatet blev som følger:

=SUM(N(FREQUENCY(IF(Transactions!$G$4:$G$2247=D13,MATCH(Transactions!$A$4:$A$2247,Transactions!$A$4:$A$2247,0)),MATCH(Transactions!$A$4:$A$2247,Transactions!$A$4:$A$2247,0))>0))

Denne formel løser mit problem uden at skulle VBAe. Hvis du sender mig et svar så skal du få pointene for din inspiration og det første skridt i retningen af at gøre mig til VBA mand. Tak for hjælpen begge to.

Jeg er blot en kodenørd