Guten Tag,

ich hänge leider mal wieder bei einer Aufgabe und finde den Fehler nicht.

Es soll eine Funktion erstellt werden, die als erstes Argument einen booleschen Wert annimmt (der bestimmt, ob nur positive oder alle Zahlen betrachtet werden sollen) und des Weiteren den Mittelwert aller markierten Zahlen berechnen soll. Dabei zählen nur numerische Werte. Zellen in denen nichts eingetragen ist sollen nicht mitgezählt werden.

Nun habe ich folgenden Code (und bekomme nur Ergebnisse für einzelne Argumente oder mehrere Argumente, die ich händisch eingebe. Markiere ich Zellenbereiche ist der Wert "#Wert"):

Option Explicit

Public Function Mittel(NurPosZahlen As Boolean, ParamArray AlleArgumente() As Variant) As Double

Dim Argument As Variant
Dim Zelle As Range
Dim Summe, Anzahl As Double

For Each Argument In AlleArgumente
    If NurPosZahlen = True Then
        If IsNumeric(Argument) And Argument >= 0 And Argument <> "" Then
            Summe = Summe + Argument
            Anzahl = Anzahl + 1
        ElseIf TypeName(Argument) = "Range" Then
            For Each Zelle In Argument
                If IsNumeric(Zelle.Value) And Zelle.Value >= 0 And Zelle.Value <> "" Then
                    Summe = Summe + Zelle.Value
                    Anzahl = Anzahl + 1
                End If
            Next
        End If
    ElseIf NurPosZahlen = False Then
        If IsNumeric(Argument) And Argument <> "" Then
            Summe = Summe + Argument
            Anzahl = Anzahl + 1
        ElseIf TypeName(Argument) = "Range" Then
            For Each Zelle In Argument
                If IsNumeric(Zelle.Value) And Zelle.Value <> "" Then
                    Summe = Summe + Zelle.Value
                    Anzahl = Anzahl + 1
                End If
            Next
        End If
    End If
Next

If Anzahl > 0 Then
    Mittel = Summe / Anzahl
Else
    Mittel = 0
End If

End Function

Wo steckt der Fehler?