Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mittelwert eines Ranges

Mittelwert eines Ranges
08.09.2006 13:28:24
Felix
Hallo miteinander
Ich hab ein kleines VBA-Problem mit der worksheetfunktion.average die ich auf einen Range anwende. Dies funktioniert eigentlich gut, sofern der Range nur Zahlen enthält. Sind im Range nur 0 oder Text, gibts folgende Fehlermeldung:
uanble to get the Average property of the worksheetfunction class.
Habt ihr Tipps wie ich dieses Problem beheben kann oder den Mittelwert eines Ranges bestimmen kann.
vielen dank im voraus
felix

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mittelwert eines Ranges
08.09.2006 13:51:46
EtoPHG
Hallo Felix,
Vielleicht hilft Dir diese Funktion.
Sie zählt nur Zellen aus dem Range, die a) numerisch sind und b) nicht leer sind.
Errechnet deren Durchschnitt. Sonst wird Null zurückgegeben.
Public

Function avgOfRange(target As Range) As Double
Dim rCell As Range
Dim sCnt As Single
For Each rCell In target
If IsNumeric(rCell.Value) And Not (IsEmpty(rCell.Value)) Then
avgOfRange = avgOfRange + rCell.Value
sCnt = sCnt + 1
End If
Next
If sCnt > 0 Then
avgOfRange = avgOfRange / sCnt
Else
avgOfRange = 0
End If
End Function

Gruss Hansueli
Anzeige
AW: Mittelwert eines Ranges
08.09.2006 15:12:36
felix
Danke, Problem gelöst
AW: Mittelwert eines Ranges
08.09.2006 14:40:45
Reinhard
Hi Felix,
Option Explicit
Function MW(Bereich As Range)
Dim Zelle
For Each Zelle In Bereich
If Zelle.Value <> "" Then MW = MW - IsNumeric(Zelle.Value)
Next Zelle
If MW <> 0 Then MW = Application.WorksheetFunction.Sum(Bereich) / MW
End Function

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige