mit welcher intelligenten Formel gelingt es mir nur die Zellen aufzuaddieren, die im Spaltenkopf eine 1 und im Zeilenkopf ein A haben. Sprich die gelb markierten Zellen.
Hier meine Datei: https://www.herber.de/bbs/user/84890.xlsx
Vielen Dank,
Frank
Function SumIfTrans(RangeVertical, sVert, RangeHorizontal, sHor)
Dim r1 As Range
Dim r2 As Range
SumIfTrans = 0
For Each r1 In RangeVertical
If r1.Value = sVert Then
For Each r2 In RangeHorizontal
If r2.Value = sHor Then
SumIfTrans = SumIfTrans + Cells(r1.Row, r2.Column)
End If
Next r2
End If
Next r1
End Function
Grüße,
=SUMMENPRODUKT((D11:D16="A")*(E10:J10=1)*E11:J16)
=SUMMWENNS(E11:J16;D11:D16;"=A";E10:J10;"=1")