hvordan tæller samme poster i array

Have you considered using a datbase for this juks?

Eksempel, hvor koden er lagt i et Word-dok:

Dim arr As Variant, arrTæl(), antal
Sub optælArray()

Rem Test-array
    arr = Array(2, 1, 4, 33, 5, 6, 2, 6, 2, 1, 4, 5, 6, 7, 19, 10, 8, 19, 33, 20, 21, 22, 23, 24, 2)
    antal = UBound(arr)
   
    ReDim arrTæl(antal, 2)
   
Rem Nulstil optællingsArray
    For f = 0 To antal
        arrTæl(f, 0) = -1
        arrTæl(f, 1) = 0
    Next f
   
Rem Gennemløb af BasisArray
    For f = 0 To antal
        tal = arr(f)
        optælTal tal, antal
    Next f
   
    WordBasic.sortArray arrTæl, 1, 0, antal - 1, 0, 1
   
    res = ""
    For f = 0 To 9
        res = res + CStr(arrTæl(f, 0)) + ": " + CStr(arrTæl(f, 1)) + vbCr
    Next f
    MsgBox (res)
End Sub
Private Sub optælTal(tal, antal)
    For f = 0 To antal
        If arrTæl(f, 0) = -1 Then
            arrTæl(f, 0) = tal
            arrTæl(f, 1) = 1
            Exit For
        Else
            If tal = arrTæl(f, 0) Then
                arrTæl(f, 1) = arrTæl(f, 1) + 1
                Exit For
            End If
        End If
    Next f
End Sub

smid svar tak

Det får du....