Häufigkeit berechnen

Function häufigste(rng As Range) As Integer
Dim iRow As Integer
Dim tmp As Integer
Dim häufigst As Integer
Dim häufigkeit As Integer
häufigkeit = 0
häufigst = 0
With rng
For iRow = 1 To .Cells.Count
tmp = WorksheetFunction.Frequency(rng, .Cells(iRow))
If tmp > häufigkeit Then
häufigkeit = tmp
häufigst = .Cells(iRow)
End If
Next iRow
End With
häufigste = häufigst
End Function