Mittelwertberechnung von gefilterten Zeilen

Question

Ich würde gerne wissen, wie ich die gesamte Zeile aktivieren und den mittelwert aller Daten von Hxy bis CBxy in der Zelle CCxy ausgeben lassen kann. 

Sub Zeilen_C_markieren()

Dim rngFilterCell As Range
For Each rngFilterCell In Columns("H2:CB" & Range("CB1200").End(xlUp).Row).SpecialCells(12)
        Range(rngFilterCell.Address).Select
Next
End Sub

Vielen lieben dank

Answer 1

Hallo Fabio,

Schau dir mal die Funktion Teilergebnis an. Die berechnet in gefilterten Zeilen den gewünschten Wert.

In deinem VBA-Beispiel wäre das x = Application.Subtotal(1, rngFilterCell) wobei du .SpecialCells(12) weglassen kannst.

Gruß Mr. K.