Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bedingter Mittelwert

Gruppe

Mittelwert

Problem

Wie kann ich aus einer Wertetabelle den Mittelwert unter Berücksichtigung einer Ober- und Untergrenze errechnen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function IfAverage( _
   rngAll As Object, _
   dFirst As Double, _
   dLast As Double) As Double
   Dim rng As Range
   Dim dSum As Double
   Dim iCounter As Integer
   For Each rng In rngAll.Cells
      If IsNumeric(rng.Value) Then
         If rng.Value >= dFirst And rng.Value <= dLast Then
            dSum = dSum + rng.Value
            iCounter = iCounter + 1
         End If
      End If
   Next
   If iCounter > 0 Then
      IfAverage = dSum / iCounter
   Else
      IfAverage = 0
   End If
End Function