Medianbildung mit Bedingungen

Wolfgang · 2020-05-30T20:54:22+00:00

Hallo, ich sollte von Werten die in einer Spalte stehen, den Median, der ersten 6 Werte, die kleiner als 10000 sind, bilden. In der Spalte sind eine unterschiedliche Anzahl von Werten. Ich habe eine Beispieltabelle beigefügt. Vielleicht kann mir jemand helfen. Danke https://www.herber.de/bbs/user/137899.xlsx

Hallo Wolfgang,
entschuldige bitte, dass ich deinen Beitrag so "vollmülle". Ich hatte versehentlich den Mittelwert statt des Medians berechnet. Hier nun die Korrektur(en).
Wenn die kleinsten Werte berücksichtigt werden sollen:

Function MyMedian(rngSource As Range, lngMaxValue As Long, iAmountValues As Integer) As Double
Dim arrNumbers() As Integer
Dim arrMedian() As Integer
Dim rngValue As Range
Dim lngCount As Long, lngSum As Long
Dim i As Integer
ReDim arrNumbers(rngSource.Cells.Count)
ReDim arrMedian(1 To 6)
For Each rngValue In rngSource.Cells
If rngValue.Value

Wenn die größten Werte berücksichtigt werden sollen:

Function MyMedian(rngSource As Range, lngMaxValue As Long, iAmountValues As Integer) As Double
Dim arrNumbers() As Integer
Dim arrMedian() As Integer
Dim rngValue As Range
Dim lngCount As Long, lngSum As Long
Dim i As Integer
ReDim arrNumbers(rngSource.Cells.Count)
ReDim arrMedian(1 To 6)
For Each rngValue In rngSource.Cells
If rngValue.Value

Aufruf per Makro mit:

Sub Aufruf()
MsgBox MyMedian(Range("A1:A20"), 9999, 6)
End Sub

Aufruf per Formel mit:

=MyMedian(A1:A20;9999;6)

So, jetzt ist für mich Schlafenszeit. Gute Nacht!
Viele Grüße
Martin

@WF: Ausnahmsweise antworte ich dir einmal (sonst "überlese" ich alle Beiträge von dir)
"Was soll das eigentlich ?"
Was das soll? Ganz klar ausgedrückt: Ich antworte in erster Linie dem Fragesteller. Und den will ich animieren, sich mit einer Lösung auseinander zu setzen. Ich sehe mich nicht als kostenlosen Dienstleister mit Komplettlösungen für einen Fragesteller; wenn Interesse besteht kann sich jeder in die Thematik einarbeiten und wenn ein gewisses Maß an Eigenleistung erbracht worden ist bin ich aber auch gerne bereit, in gewissem/angemessenen Rahmen gezielt zu helfen. Und ja, auch hier setze ich Grenzen. Denn mein Wissen und die Fähigkeit dieses lernfähig weiter zu geben ist ein Wert, der auch pekuniär zu meinem Leben beiträgt.
"Man liest immer von wenigen Mausklicks und wie einfach das ist."
Dass "man" durchaus in der Lage ist, den "Anschubser" zu verstehen und auch inhaltlich nachzuvollziehen, das zeigt doch der Folgebeitrag von Helmut. Warum anonymisierst du also derartig und schreibst nicht, dass DU (also "ich lese") dich daran störst? - Die Wortwahl "WENIGE" Mausklicks wirst du von mir selten lesen, meist schreibe ich (wie auch in diesem Fall) "einige" (was ich als einen deutlichen Unterschied sehe). - Und dass "alles ganz einfach ist" hast du von mir noch nie gelesen. Ich weiß, dass in einem anderen Forum jemand diese These vertritt; ich verurteile solch eine Aussage, denn ich erinnere mich noch sehr gut daran, wie sehr ich zu Beginn (und manchmal auch noch jetzt) geschwitzt habe, um die Logik des PQ zu verstehen und den Lösungsweg nachvollziehen zu können. Schließlich finde ich "ellenlange" Formeln auch nicht einfach (auch wenn ich diese mit etwas Mühe analysieren kann). Durch fast 30-jährige Erfahrung als Schulungsleiter weiß ich, dass es für meine Gegenüber NIE leicht ist, neue Wege zu beschreiten. Ich kann aber versuchen, den Weg zu ebnen.
"Man sieht aber nie einen Lösungsweg mit Ergebnis."
Wie oben schon gesagt: Ich bin nicht das Sozialamt für lernunwillige oder lernunfähige Excel-User. Ein Forum sollte Hilfe zur Selbsthilfe erbringen, mehr nicht. Die aber erbringe ich freiwillig, gerne und natürlich gratis. Und wer die Komplettlösung als "Fertigmenü" haben will der möge sich den Kopf jedes Threads ansehen, wo Hans seine Hilfe (selbstverständlich gegen Bezahlung) anbietet. - Und ach ja, die Lösung hatte ich genannt: 39! Nur den Lösungsweg darf sich jeder Interessierte zumindest ansatzweise erarbeiten. Die ersten Schritte erwarte ich einfach von einem Fragesteller. Wenn es dann hakt, dann helfe ich auch (was ich auch schon vielfach bewiesen habe). Und das "nie" stimmt auch in keiner Weise, ich habe schon oft genug beim ersten oder zweiten Anlauf die komplette Lösung geliefert, soweit es PQ-Basics betraf. Manchmal auch tiefer gehend. Und mein Name im Footer ist sogar der direkte Weg zu mir. ;-) - Auch hier gehört der TE zu den non- oder less-Respondern, ich habe keinerlei Interessenbekundung an einer PQ-Lösung von deiner Seite gesehen. Warum sollte ich also die Mühe auf mich nehmen und jemandem, der nicht wirklich an einer noch unbekannten Lösung interessiert ist, kostenlose, werthaltige Hilfe anbieten, die mir dann doch nicht gedankt wird?
Und ja, auch wenn es dich stört: Ich werde diesen Weg konsequent und stringent weiter verfolgen. Auch in anderen Foren. Ich stecke meine noch verbleibende Zeit auf dieser meist schönen Welt lieber in die Beiträge meines Blogs. Und ich weiß auch durch Feedbacks, dass eine ganze Menge der Foren-User dort ihr Grundwissen schöpfen und so einen soliden Einstieg in Power Query finden. Und wem diese Einstellung nicht passt, der kann meine Beiträger ja "überlesen"/ignorieren bzw. mich in anderen Foren auf die I++ Liste setzen. Denn eines sollte JEDEM Helfer bewusst sein: ICH (wie fast jeder Helfer) bin derjenige, der etwas Werthaliges gibt! Der Fragesteller oder auch Mitleser kann das Angebot annehmen oder nicht, die Bedingungen aber bestimme ich. Und das ist gut so.
Ich weiß, dass ich mit diesem "Wort zu Pfingsten" den Unmut oder auch Widerstand einiger Mitleser hervorrufe. Ich respektiere andere Meinungen (sofern sie nicht anonymisiert auf die Gemeinschaft übertragen werden), aber ich akzeptiere sie gewiss nur dann, wenn mich die Argumente überzeugen. - Ich werde aber zu diesem Beitrag in keinem Fall eine Replik schreiben, egal wer was wie dazu schreibt. Punkt.
So oder so: Bleibt alle gesund!

Gruß
Günther | mein Excel-Blog

Forumthread: Medianbildung mit Bedingungen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Medianbildung mit Bedingungen

Forumthread: Medianbildung mit Bedingungen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread