SpecialCells(xlCellTypeVisible) und Average
16.03.2006 23:03:42
Reinhard
Option Explicit
Sub tt()
Dim rngArea As Range
Set rngArea = Selection.SpecialCells(xlCellTypeVisible)
MsgBox Application.Average(rngArea)
End Sub
1) Liefert Fehler 13, falsche Typen, wenn in der Selection ein Fehlerwert steht.
2) Liefert den Mittelwert über alle Zahlenzellen auf dem Blatt wenn man eine leere Zelle selectiert hat und keine Fehlerzelle hat aif dem Blatt.
3) Liefert Fehler 13, falsche Typen wenn man mehrere leere Zellen selectiert hat
Sub tt()
Dim rngArea As Range
Set rngArea = Selection
MsgBox Application.Average(rngArea)
End Sub
1) Liefert Fehler 13, falsche Typen, wenn in der Selection ein Fehlerwert steht.
2) Liefert Fehler 13, falsche Typen wenn man eine leere Zelle selectiert hat
3) Liefert Fehler 13, falsche Typen wenn man mehrere leere Zellen selectiert hat
Warum unterscheiden die sich in Punkt 2 ?
Btw, wie benutze ich MittelwertA in Vba ?
Diese Specialcells werden ich nie kapieren.
Gruß
Reinhard