summewenn mit mehreren Abfragen
24.02.2005 13:04:30
Berthold
da zu o.g. Thema immer wieder Anfrage auftauchen, ich selbst ebenfalls nach einer einfachen Lösung gesucht und nicht gefunden habe, möchte ich hier meine Lösung zur Verfügung stellen:
Function Summe2Wenn(Bed1 As Range, Bed2 As Range, Suche1, Suche2, Werte As Range)
'summiert Werte in Abhängigkeit von 2 Bedingungen mittels Durchsuchung von 2 Spalten
Dim Anzahl As Integer, i As Integer
Dim Summe As Single
Summe = 0
Anzahl = Bed1.Cells.Count
For i = 1 To Anzahl
If Bed1(i).Value = Suche1 And Bed2(i).Value = Suche2 Then
Summe = Summe + Werte(i).Value
End If
Next i
Summe2Wenn = Summe
End Function
Die Funktion sucht je einen Wert in je einer Bed. Spalte heraus, bei Erfüllung beider Bedingungen wird der entsprechende Wert der dritten Spalte summiert.
Berthold Grabe