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
kann mir vllt jemand helfen warum ich immer nur ein !WERT bekomme? fehler scheint irgendwo oben bei der benutztung von WorksheetFunction.Frequency aufzutauchen...