Optæling af unike personer og samregning af tal, (excel 2003)

pivottabel burde kunne klare denne opgave.

Ja hvis man kender navnene, dette gør jeg ikke og der er stadigvæk samregninger eller??

Hvis du blot paster dette ind i et modul, og ellers dit ark er opbygget således;

    <A>        <B>      <C>
<1> Navn    Type    Pris
<2> Henrik    SMS    891
<3> Henrik    Fastnet    607
<4> Peter    SMS    666
<5> Peter    ADSL    833
<6> Peter    ISDN    21
<7> Gitte    Fastnet    896

så burde det hele spille :)

Option Explicit
Option Base 1

Sub Main()
Dim i As Long, j As Long, total As Long, antal As Long
Dim TypeForbindelse() As String
Dim UnikkeForbindelser() As String

ReDim TypeForbindelse(Range("A65536").End(xlUp).Row - 1)

For i = 2 To Range("B65536").End(xlUp).Row
    TypeForbindelse(i - 1) = ActiveSheet.Cells(i, 2)
Next i

Call UniqueArray(TypeForbindelse, UnikkeForbindelser)

For i = 1 To UBound(UnikkeForbindelser)
    total = 0
    antal = 0
    For j = 2 To Range("B65536").End(xlUp).Row
        If UnikkeForbindelser(i) = ActiveSheet.Cells(j, 2) Then
            total = total + ActiveSheet.Cells(j, 3)
            antal = antal + 1
        End If
    Next j
    MsgBox "Antallet af " & UnikkeForbindelser(i) & "-kunder var " & antal & Chr(13) & Chr(13) & UnikkeForbindelser(i) & " total blev: " & total & " DKK"
Next i


End Sub

Sub UniqueArray(Array1() As String, UniqArray() As String)

Dim i As Integer
Dim Unique As New Collection

    For i = 1 To UBound(Array1)
        On Error Resume Next
        Unique.Add Array1(i), CStr(Array1(i))
    Next i

    ReDim UniqArray(Unique.Count)
    For i = 1 To Unique.Count
        UniqArray(i) = Unique(i)
    Next i

End Sub