MTBSC = WorksheetFunction.SumProduct((Sheets("ServiceReports").Range("E7:E5000") = Range("B" & intRow)) _
* (Sheets("ServiceReports").Range("I7:I5000") = Range("X1")) _
* (Sheets("ServiceReports").Range("B7:B5000")))
Danke
Christian