HERBERS Excel-Forum - die Beispiele

Thema: Median ohne ausgeblendete Zellen berechnen

Home

Gruppe

UDF

Problem

Die benutzerdefinierte Funktion in Zelle A17 berechnet den Merian der Zahlenreihe in A1:A16 ohneBerücksichtigung der ausgeblendetenZellen.

Lösung
Geben Sie die benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: Modul1

Function MyMedian(rng As Range) As Double
   Dim rngAct As Range
   Dim arr() As Double
   Dim dAct As Double
   Dim iCountA As Integer, iCountB As Integer, iCount As Integer
   For Each rngAct In rng.Cells
      If Rows(rngAct.Row).Hidden = False Then
         iCountA = iCountA + 1
         ReDim Preserve arr(1 To iCountA)
         arr(iCountA) = rngAct.Value
      End If
   Next rngAct
   iCount = iCountA
   For iCountA = 1 To UBound(arr)
      For iCountB = iCountA + 1 To iCount
         If arr(iCountA) > arr(iCountB) Then
            dAct = arr(iCountA)
            arr(iCountA) = arr(iCountB)
            arr(iCountB) = dAct
         End If
      Next iCountB
   Next iCountA
   dAct = 0
   For iCountA = 1 To iCount
      If iCount Mod 2 = 0 Then
         dAct = dAct + arr(iCountA)
         If iCountA > 2 Then dAct = dAct - arr(iCountA - 2)
         If iCountA > iCount / 2 Then
            MyMedian = dAct / 2
            Exit Function
         End If
      Else
         dAct = arr(iCountA)
         If iCountA > iCount / 2 Then
            MyMedian = dAct
            Exit Function
         End If
      End If
   Next iCountA
   
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und Median

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic UDF- Beschreibung
Berechnungsdauer einer UDF messen erkennung der letzten Zahl und Median
Hintergrudfarbe ändern??? Finde keine Lösung :-( Probleme mit IsNumeric, Code per UDF
Median - Nullwerte nicht berücksichtigen UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten Median bei Teilergebnissen
nach Worksheet_Change werden UDF nicht ausgewertet Excel anhalten bei UDF
UDF Median berechnen
Median mit Bedingung Median mit Bedingung
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
Median von großen Datenfeldern Median Kalkulation
Median berechnen von gekennzeichneten Werten SQL in UDF
Median/Zentralwert Werte einer UDF werden nicht aktualisiert
Errechnung Median und Standardabweichung Median in Pivot-Tabellen
Aufruf von UDF mit Array Median berechnen
UDF: Semikolon vs Komma UDF, erkennen in welcher Zelle die UDF steht
Median Wenn Median-Berechnung mit Pivot-Tabellen
Probleme mit UDF und Worksheet Ereignissen Formeln über UDF vergleichen
UDF Verweis checken Median mit 2 Kriterien
Median aus gruppierten Daten UDF
Modalwert und Median Intellisense bei User defined functions (UDF)
Mediane und Modalwerte VBA "Find" in UDF
Median in Pivot-Tabellen Problem mit median
Median / Mittelwert unter Nebenbedingungen Median unter zwei Nebenbedingungen