Summenprodukt

KritA	KritB
A	1
A	1
A	2
B	1

Wenn ich nun in Feld C1 die Formel

=SUMMENPRODUKT((A1:A5="A")*(B1:B5=1)) 

eingebe, erhalte ich als Anzahl die Zahl 2 (alle Zeilen mit "A" und 1 in den beiden Spalten) . Soweit so gut.
Nun versuche ich, diese Formel via VB zu erstellen. Ich hätte mir das so vorgestellt:

Range("C1").Value = Application.WorksheetFunction.SumProduct((Range("A1:A5") = "A") * (Range("B1:B5") = 1))

Doch das klappt irgendwie nicht! Hat jemand eine Idee, was ich falsch mache?
Vielen Dank!
Thomas