Wie finde ich den am häufigsten vorkommenden Wert (Zahl oder Textzeichenfolge) in einer Liste in Excel?

In der Regel können Sie die MODUS-Funktion (=MODUS(A1:A16)) verwenden, um die häufigste Zahl in einem Bereich zu ermitteln. Diese MODUS-Funktion funktioniert jedoch nicht mit Textzeichenfolgen. Um den am häufigsten vorkommenden Wert zu extrahieren, wenden Sie stattdessen die folgende Matrixformel an – so geht’s:

Geben Sie in eine leere Zelle neben den Daten die folgende Formel ein und drücken Sie gleichzeitig Umschalt + Strg + Enter.

=INDEX($A$1:$A$16;MODUS(VERGLEICH($A$1:$A$16;$A$1:$A$16;0)))

Ist die Formel zu kompliziert, um sie sich zu merken? Speichern Sie die Formel als Autotext-Eintrag, um sie künftig mit nur einem Klick wiederzuverwenden! Weitere Informationen…     Kostenlose Testversion

Sobald Kutools für Excel installiert ist, können Sie ganz einfach die Häufigsten Wert ermitteln-Funktion nutzen, um blitzschnell den häufigsten Wert aus einer Liste oder Spalte in Excel zu erhalten.

1. Wählen Sie eine leere Zelle aus, in die der gefundene Wert eingefügt werden soll, und klicken Sie auf Kutools > Formelhelfer > Formelhelfer.

2. Wählen Sie im Dialogfeld Nachschlagen aus der Dropdown-Liste Formeltyp den Eintrag Den am häufigsten vorkommenden Wert finden in der Liste Wählen Sie eine Formel aus, geben Sie die gewünschte Liste bzw. Spalte in das Feld Bereich ein und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

Anschließend sehen Sie, dass der häufigste Wert ermittelt und in die ausgewählte Zelle eingefügt wurde – siehe Screenshot:

Mit dem folgenden VBA-Code ermitteln Sie nicht nur den am häufigsten vorkommenden Wert, sondern zählen auch, wie oft das häufigste Wort auftritt.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Ermitteln des häufigsten Werts aus einer Liste

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, den gewünschten Bereich auszuwählen. Siehe Screenshot:

4. Klicken Sie dann auf OK, und es erscheint ein Meldungsfeld mit folgenden Informationen: