Array / Summenprodukt aus bedingtem Teilergebnis??

Hallo liebes Forum,
obwohl ich eigentlich beim Einsatz von Formeln relativ fit bin, komme ich nicht auf eine Formelkombination, die mir weiterhilft und mir (von mir verhasste) Hilfsspalten und aehnliches erspart:
Ich habe eine Liste mit Personennamen (Zeile B) und getaetigten Ausgaben (Zeile E). Pro Person sind jeweils 2 Ausgabenarten angegeben, auf die sich die Gesamtsumme der Ausgaben (nicht angegeben) aufteilt. Da das ganze auch anderweitig in einer Pivot-Tabelle verwendet wird, sind die Ausgaben mit zweifacher Angabe des Personennamens in jeweils 2 uebereinanderliegenden Zeilen eingetragen:
B E
1 Mueller 100
2 Mueller 50
3 Meier etc...
Um die Ausgaben nun zu evaluieren, moechte ich gern wissen, wieviele der Personen in ihrer Gesamtsumme ueber der Gesamtsumme einer ebenfalls in der Liste befindlichen Person (Zeilen 8 und 9) liegen.. Die Gesamtsumme an sich hab ich bereits, ist auch nicht von Bedeutung. Hab gedacht, ich muesst das mit einer Array-Formel machen, aber irgendwie komm ich net auf die Loesung.. Und in VBA bin ich wirklich nicht fit, so dass ich mir da auch nichts zs basteln konnte...
Ueber einen Tipp waer ich wirklich dankbar! :)
Schoene Gruesse,
Joana

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachtrag

06.07.2007 16:00:00

Joana

Nachtrag

06.07.2007 17:11:07

Joana

AW: Nachtrag

06.07.2007 17:20:00

HermannZ

AW: Nachtrag

06.07.2007 17:32:00

Joana

AW: Nachtrag

06.07.2007 18:10:00

HermannZ

Loesung ohne Hilfsspalte?

06.07.2007 18:55:56

Joana

AW: Loesung ohne Hilfsspalte?

06.07.2007 19:22:00

ingUR

AW: Loesung ohne Hilfsspalte?

06.07.2007 20:35:00

HermannZ

Perfect!!!

06.07.2007 22:47:01

Joana

Ja, Joana,
es ist zu vermuten, dass es ohne Hilfsspalte(n) nur über eine VBA-Prozedur funktioniert, die in etwa so in ihrer Granlage so aufgebaut ist:


Const REFNAMEZEILE = 9
Const ERGSPALTE = "H"
Sub AnzahlGroessertRef()
Dim r As Long
Dim RefVV As Double
Dim Anz As Long
Dim VV As Double, SumVV As Double
RefVV = Cells(REFNAMEZEILE, "E") + Cells(REFNAMEZEILE + 1, "E")
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
VV = Cells(r, "E") + Cells(r + 1, "E")
If VV > RefVV Then
Anz = Anz + 1
SumVV = SumVV + VV
End If
Next
Cells(1, ERGSPALTE) = RefVV
Cells(2, ERGSPALTE) = Anz
Cells(3, ERGSPALTE) = SumVV / Anz
End Sub

Bitte die entsprechende Anpassungen zur Ausgabe (hier habe ich den Durchschnittswert der Summen, die über der Summe der Refenzperson liegen, ausgegeben).
Das Makro muß derzeit über [ALT][F8] aufgerufen werden, kann aber auch automatisch ausgeführt werden, wenn eine entsprechndes Ereigns auftritt, z.B. Änderung eines Zelleninhaltes innerhalb eines bestimmten Beobachtungsbereichs.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Array / Summenprodukt aus bedingtem Teilergebnis??

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread