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
Hallo,
Alternativ zu nennen wäre die Matrixformellösung:
{=SUMME(1/ZÄHLENWENN(A1:A99;A1:A99))}
...oder eine Lösung als UDF per VBA:
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
Perfekt. Die Funkion ist genau richtig....
Vielen Dank.
Gruss
JLK