AW: Auswertung ohne ausgeblendete Spalten
14.07.2007 14:36:00
Daniel
Hi
mit Teilergebnis wirst du da nicht weiterkommen, da Teilergebnis nur ausgeblendete Zeilen ignoriert (wurde wahrscheinlich für das Zusammenspiel mit dem Autofilter konzipiert)
Wahrscheinlich bleibt dir da nur die Möglichkeit, selbst ne Funtkion zu schreiben, z.B. so:
Public Function ZählenWennSichtbar(rngBereich As Range, Suchtext As String) As Long
Dim Zelle As Range
Application.Volatile
For Each Zelle In rngBereich
ZählenWennSichtbar = ZählenWennSichtbar - (Zelle.Value = Suchtext) * (Not Zelle. _
EntireColumn.Hidden) * (Not Zelle.EntireRow.Hidden)
Next
End Function
allerdings wird durch das Ein- oder Ausblenden einer Spalte noch keine Neuberechnung ausgelöste, erst wenn irgendwo an einer andern Stelle im Blatt was geändert wird, wird neu berechnet.
Gruß, Daniel