Wie muss ich folgende Function umschreiben, damit der für die Formelberechnung erforderliche Parameter Mittelwert des Bereichs (Range) automatisch errechnet wird und das Formelergebnis durch Eingabe "SEMIVOLA(BEREICH)" erfolgt und nicht wie bisher durch "SEMIVOLA(BEREICH;MITTELWERT)?
Public Function semivola(Bereich As Range, Mittelwert As Double) As Double
Dim Anzahl%, varianz As Double, varianzsumme As Double, zelle
With Application.WorksheetFunction
Anzahl = .Count(Bereich)
varianzsumme = 0
For Each zelle In Bereich
If .IsNumber(zelle) = True Then
If zelle
Besten Dank für Eure Vorschläge!Gruß, Horst