Summenprodukt in VBA

Function leider nicht!?
Wer kann mir dabei helfen?
Vielen Dank
Mike S

Sub Auswertung()
Dim wsZiel As Worksheet
Dim rERDAT As Range
Dim rKAMGR As Range
Dim rKATEG As Range
Dim rPLERL As Range
Set wsZiel = Worksheets("Main")
Set rERDAT = wsZiel.Range("K3:K65536")
Set rKAMGR = wsZiel.Range("O3:O65536")
Set rKATEG = wsZiel.Range("Q3:Q65536")
Set rPLERL = wsZiel.Range("C3:C65536")
[D18] = Application.WorksheetFunction.SumProduct(rERDAT >= CDate("01.01.2004") * (rERDAT <= CDate("31.03.2005") * (rKAMGR = 2) * (rKATEG = "A") * rPLERL))
End Sub