Hallo,

die WorksheetFunction.Average Funktion soll mir einen Mittelwert bilden, in der Definition steht folgendes:

• Wenn ein Array- oder Bezugsargument Text, Wahrheitswerte oder leere Zellen enthält, werden diese Werte ignoriert. Zellen mit dem Wert Null werden jedoch berücksichtigt.

Im allereinfachsten Beispiel funktioniert dies jedoch nicht. Der Excel Sheet zeigt folgendes: A1 = leer,  A2 = 2,  A3 = 2 (und A1 ist wirklich leer! Keine Leerzeichen o.ä. darin enthalten)

Sub AverageTest()

a = Range("A1").Value
b = Range("A2").Value
c = Range("A3").Value
MW = Application.Average(a, b, c)

End Sub

Ergebnis ist immer 1,333 und nicht -wie es sein sollte- 2.

Wie löst ihr dieses Problem?

Grüße, Civi