Public Sub CountFrequencies(MyNumbers() As Integer, _
     MyDistictNumbers() As Integer, MyFrequencies() As Integer)
 
     Dim i%, k%, counter%
     Dim found As Boolean
     ReDim MyDistinctNumbers(UBound(MyNumbers))
     ReDim MyFrequencies(UBound(MyNumbers))
     MyDistinctNumbers(0) = MyNumbers(0)
     MyFrequencies(0) = 1
 
     For i = 1 To UBound(MyNumbers)
        If MyNumbers(i) <> 0 Then
           found = False
           For k = 0 To counter
              If MyDistinctNumbers(k) = MyNumbers(i) Then
                 'Zahl bereits aufgetreten --> Zählen
                 MyFrequencies(k) = MyFrequencies(k) + 1
                 found = True
                 Exit For
              End If
           Next k
 
           If Not found Then
             'Erstes Auftreten einer Zahl
              counter = counter + 1
              MyFrequencies(counter) = 1
              MyDistinctNumbers(counter) = MyNumbers(i)
           End If
        End If
     Next i
 
     ReDim Preserve MyDistinctNumbers(counter)
     ReDim Preserve MyFrequencies(counter)
 
 End Sub