60 Aufrufe
Gefragt in Textverarbeitung von
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

1 Antwort

0 Punkte
Beantwortet von xlking Mitglied (359 Punkte)

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.

...