Autofilter und ZählenWenn/Häufigkeit

für die Auswertung einer Befragung suche ich eine Möglichkeit in einer Liste, in der der AutoFilter für eine Spalte
(z.B. in Spalte B auf "2") gesetzt ist, die Häufigkeit der Einträge in den restlichen Spalten auszuwerten,
also z.B.: wie oft kommen die Werte 1 bis 4 in der Spalte C vor?

Leider gibt es innerhalb der TEILERGEBNIS-Funktion kein Bedingtes Zählen, und die Funktionen ZÄHLENWENN und HÄUFIGKEIT beziehen sich auf den gesamten Spaltenbereich, ignorieren also den Filter.

Auch der Versuch, eine Benutzerdefinierte Funktion zu schreiben, die nur die sichtbaren Zellen berücksichtigt, ist gescheitert: Wenn die Funktion sich auf einen sichtbaren Bereich wie .SpecialCells(xlCellTypeVisible) bezieht und dann im Tabellenblatt verwendet wird, wird grundsätzlich der komplette ausgewertet und der Filter bleibt außen vor.

Wird die Funktion allerdings im Debug-Fenster aufgerufen, klappt alles wie erwartet.

Hier das Beispiel zum Testen:
(QBereich ist der Bezug auf die gefilterte Spalte)

Function Zähltest(Bereich As Range) As Integer
Debug.Print .SpecialCells(xlCellTypeVisible).Address
Zähltest =.SpecialCells(xlCellTypeVisible).Count
End Function

Wer kann mir hier weiterhelfen?

Josef