Public Function BedingterMittelwert(Bereich As Range, Min, Max)
   Dim Zelle As Range
   Dim Summe As Single
   Dim Anzahl As Integer
   Set MeinBereich = Bereich
   For Each Zelle In MeinBereich
      If IsNumeric(Zelle.Value) Then
         If Zelle.Value >= Min And Zelle.Value <= Max Then
            Summe = Summe + Zelle.Value
            Anzahl = Anzahl + 1
         End If
      End If
   Next Zelle
   If Anzahl > 0 Then
      BedingterMittelwert = Summe / Anzahl
   Else
      BedingterMittelwert = 0
   End If
End Function