Formelergebnis (SUMPRODUCT) an Variable übergeben

'Offene Aufträge Zählen
Dim Zeile&, Start2&, Ende2&, Anzahl&
Dim User$
Dim Bereich1 As Range, Bereich2 As Range
Set Bereich1 = .Range("D2:D" & Ende)
Set Bereich2 = .Range("H2:H" & Ende)
Start2 = Ende + 1
Ende2 = .Range("D65536").End(xlUp).Row
            
For Zeile = Start2 To Ende2
   User = .Cells(Zeile, 4)
   Anzahl = Application.WorksheetFunction.SumProduct((Bereich1 = User) * (Bereich2 = ""))
   .Cells(Zeile, 5) = Anzahl
Next Zeile