Excel: Anzahl der verschiedenen Werte (Text o. Zahlen) in Spalte?

[JLK]

Hallo!

ich suche mich dusselig und werde nicht fündig. Ich kann kaum glauben, dass niemand solch eine Funktion braucht...

Ich hätte gerne angezeigt, wie viele verschiedene Einträge in markierten Zellen vorhanden sind. Eine fertige Funktion dafür
scheint es nicht zu geben.

mit: =SUMMENPRODUKT((A1:A99<>"")/ZÄHLENWENN(A1:A99;A1:A99&""))  komme ich zum Ziel, muss aber dann drei mal den zu berücksichtigenden Bereich definieren, was zu umständlich ist.

Perfekt wäre es, ich könnte aus der Formel eine Funktion erstellen, die nach Aufruf nur einmal den Bereich abfragt, den ich untersuchen möchte.

Idee?

Danke.
Gruss
JLK  

[C4RL0]

Hallo,

Alternativ zu nennen wäre die Matrixformellösung:

Code [Auswählen] Erweitern

{=SUMME(1/ZÄHLENWENN(A1:A99;A1:A99))}

...oder eine Lösung als UDF per VBA:

Code [Auswählen] Erweitern

Public Function UnikateZählen(ByRef Bereich As Range) As Long
    Dim col As New Collection
    Dim ra As Range
    On Error Resume Next
    Application.Volatile
    For Each ra In Bereich
        If ra.Value <> "" Then col.Add CStr(ra.Value), CStr(ra.Value)
    Next ra
    UnikateZählen = col.Count
    If Not col Is Nothing Then Set col = Nothing
End Function

[JLK]

Perfekt. Die Funkion ist genau richtig....

Vielen Dank.

Gruss
JLK