Summenfunktion
25.02.2004 16:29:59
Wolfgang
die folgende funktion gibt mir teilergebnisse unter berücksichtigung eines kriteriums:
Function VGruppensummeUP(Werte As Range, Kriterium As Range) As Double
Application.Volatile
Dim Zeile%, Spalte%
Dim Summe As Double
If Kriterium.Value <> Cells(Kriterium.Row - 1, _
Kriterium.Column).Value Then
Summe = 0
Zeile = Kriterium.Row
Do While Zeile >= 1
If Kriterium.Value = Cells(Zeile, Kriterium.Column).Value Then
Summe = Summe + Cells(Zeile, Werte.Column).Value
Zeile = Zeile + 1
Else
Zeile = 0
End If
Loop
End If
VGruppensummeUP = Summe
End Function
das resultat sieht wiefolgt aus:
SpalteA B C D
Kunde Produkt Menge
Maier Rüben 7000 28000
Maier Rüben 6000 0
Maier Gurken 5000 0
Maier Gurken 10000 0
Müller Rüben 11000 23000
Müller Salat 12000 0
Schulze Rüben 23375 108625
Schulze Rüben 5500 0
Schulze Rüben 5500 0
Schulze Rüben 5500 0
Schulze Gurken 5500 0
Schulze Gurken 8250 0
Schulze Gurken 8250 0
Schulze Gurken 24750 0
Schulze Gurken 11000 0
Schulze Gurken 11000 0
wie könnte man die funktion ausbauen, so daß nicht nur die gesamtmenge pro kunde sondern auch pro produkt und kunde ausgewiesen wird, also mit zwei kriterien?
wenn das nicht geht vielleicht mit einer modifizierten version von
=WENN(ZÄHLENWENN(A$1:A100;A1)=1;SUMMEWENN(A:A;A1;C:C);"")
vielen dank für eure hilfe
grüße
wolfgang