Median mit Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sven,
beim ersten und zweiten Mal Durchlesen Deiner Aufgabenstellung habe ich das tatsächlich so verstanden, dass Du die Zahlen untereinander aufgelistet hast und daraus der Median errechnet werden soll. Erst nach dem dritten bzw. vierten Durchlesen hatte ich die Vermutung, dass Du wohl lediglich die Werte und dahinter die Anzahl (Häufigkeit) der Werte in der Tabelle angegeben hast, also z.B. folgendermassen :

	A	B	C
1		Zahl	Häufigkeit
2	Wert 1	400	528
3	Wert 2	450	1095

Dazu gibt es m.E. keine Standard-Funktion, die den MEDIAN berechnet. Diese kann man aber als eine UDF (User definded Function) in VBA selbst erstellen.
Hier der entsprechende VBA-Code, der in ein allgemeines Modul (z.B. Modul1) gehört :

Public Function MedianArray(rngWerte)
Dim lngT As Long, dblErg As Double, rngZ As Range
Dim arT
arT = Array()
ReDim Preserve arT(UBound(arT) + Application.Sum(rngWerte.Columns(2)))
For Each rngZ In rngWerte.Rows
For lngT = 1 To rngZ.Columns(2)
arT(lngT + lngZ - 1) = rngZ.Columns(1)
Next
lngZ = lngZ + rngZ.Columns(2)
Next
MedianArray = Application.WorksheetFunction.Median(arT)
End Function

Der Aufruf im Tabellenblatt erfolgt dann wie eine "gewöhnliche" Tabellenblattfunktion :

=MEDIANARRAY(B2:C3)

Natürlich kann die Tabelle dann auch erweitert werden (bitte zuvor nach Größe der Werte sortieren) :

	A	B	C
1		Zahl	Häufigkeit
2	Wert 1	220	150
3	Wert 2	312	300
4	Wert 3	377	800
5	Wert 4	400	528
6	Wert 5	444	127
7	Wert 6	450	1095

Der Aufruf im Tabellenblatt elautet dann entsprechend :

=MEDIANARRAY(B2:C7)

Ich hoffe, das war nun, was Du wolltest !?!
Salut, NoNet

Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum

Exceltreffen 12.-14.06.2020 in Freiberg/Sachsen

http://www.exceltreffen.de/index.php?page=291

Anmeldungen sind noch bis 31.03.2020 möglich ! - Schau doch mal rein !

Hallo Bernd,
... bei der von mir vorgeschlagenen Berechnung sind die von mir benannten Voraussetzung notwendig.
Die Ergebnisse die damit erzielt werden, stimmen jedenfalls mit den Deiner UDF überein.
Deine erste Formel auf Basis von HÄUFIGKEIT() finde ich interessant. In der von Dir angegebenen Definition ist sie aber inkorrekt, wenn wahrscheinlich auch nicht häufig. Diese Formel könnte aber möglicherweise noch "ausgebaut" werden, damit sie auch den Fall berücksichtigt, dass bei zwei gleiche TEILSUMMEN-Werten auch der gemittelte Wert dieser ausgerechnet wird.
Deine zweite Formel berechnet lediglich den Mediam ohne Berücksichtigung der zugeordneten Häufigkeiten und ist somit hierfür nicht geeignet.
Du musst das nicht tun, denn Du hast ja Deine UDF und mir reicht meine Lösungsvariante.
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
D2	=A2+((B3-B2)&gt0)(A3-A2)+(B3-B2=0)(A3-A2)/2

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D
1	Zahl	Häufigkeit		Median
2	400	528		450
3	450	1095

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread