Anzahl der aktivierten Filteroptionen in einer Zelle wiedergeben

Hallo Andreas,
<br />danke für deine Hilfe!
<br />Ich habe es mit deiner Funktion so gelöst, dass ich die Funktion "UniqueItems" mit einer Range Variable mit allen sichtbaren Zellen in der Spalte aufgerufen habe und damit ein Array mit den eindeutigen Werten in der Spalte als Rückgabewert bekommen habe. Dann habe ich die Anzahl der Werte im Array als Zahl in die Zelle 4,4 geschrieben.
<br />ActiveWorkbook.ActiveSheet.Cells(4, 4).Value = UBound(UniqueItems(Range("C:C").Rows.SpecialCells(xlCellTypeVisible))) - LBound(UniqueItems(Range("C:C").Rows.SpecialCells(xlCellTypeVisible))) - 1
<br />Hiermit zähle ich alle eindeutigen Wert in der Spalte C und mache noch ein -1 am Ende, damit eine leere Zelle (auch ein eindeutiger Wert) und die Tabellenüberschrift nicht in der Summe beachtet werden.
<br />Vielen Dank nochmal für deine Hilfe.
<br />Schöne Grüsse!
<br />

Ich hab da noch eine Funktion gefunden, ist für Deinen Fall vielleicht einfacher (anzupassen).
<br />Andreas.
<br />

Function UniqueItems(ByVal R As Range, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare, Optional ByRef Count) As Variant 'Return an array with all unique values in R ' and the number of occurrences in Count Dim Area As Range, Data Dim i As Long, j As Long Dim Dict As Object 'Scripting.Dictionary Set R = Intersect(R.Parent.UsedRange, R) If R Is Nothing Then UniqueItems = Array() Exit Function End If Set Dict = CreateObject("Scripting.Dictionary") Dict.CompareMode = Compare For Each Area In R.Areas Data = Area If IsArray(Data) Then For i = 1 To UBound(Data) For j = 1 To UBound(Data, 2) If Not Dict.Exists(Data(i, j)) Then Dict.Add Data(i, j), 1 Else Dict(Data(i, j)) = Dict(Data(i, j)) + 1 End If Next Next Else If Not Dict.Exists(Data) Then Dict.Add Data, 1 Else Dict(Data) = Dict(Data) + 1 End If End If Next UniqueItems = Dict.Keys Count = Dict.ItemsEnd Function

Ich brauche die Anzahl der eindeutigen Elemente in der Tabelle. Die Anzahl sollte sich immer aktualisieren, wenn ein Filter angewendet wird

Das macht man ganz anders.
<br />In Office 2019 gibt es kein UNIQUE / EINDEUTIG, da kann ich ein AddIn anbieten:
<br />https://answers.microsoft.com/en-us...nce-sort/0a83f0ed-ac4e-4b8e-8b33-09bc2bf33cd0
<br />Der Code ist offen, Du kannst die UNIQUE da auch rauskopieren und als Formel anwenden.
<br />Andreas.
<br />

Hallo Andreas,
<br />danke für die Antwort. Ich habe den Code implementiert. Der Code funktioniert, wenn in dieser Spalte der Filter angepasst wird, jedoch funktioniert er nicht mehr richtig, wenn Filteroptionen aus anderen Spalten verändert werden. Hast du dazu vielleicht eine Lösung?
<br />Danke und Gruss
<br />

Ich brauche die Anzahl der eindeutigen Elemente in der Tabelle. Die Anzahl sollte sich immer aktualisieren, wenn ein Filter angewendet wird - egal in welcher Spalte.
<br />Dieser Code funktioniert nur, wenn es nur eine Spalte gibt und dort ein Filter angewendet wird. Wenn es jedoch mehrere Spalten gibt und in einer anderen Spalte (nicht die var Spalte mit Wert 1) ein Filter gesetzt wird, dann funktioniert die Methode .count in der Spalte 1 nicht.
<br />Danke für die bisherige Hilfe!
<br />So sieht die Tabelle aus. Der Wert in rot ist für mich interessant. Wenn ich jetzt einen anderen Filter setze, dann sollte er mir nochmal die derzeitige Anzahl der Gipfel zählen. Die max. Anzahl ist 7.
<br />


<br />