i tried this
With Worksheets("Hilfstabelle")
Worksheets("Linienauswertung").Range("G14").Value = Application.WorksheetFunction.SumProduct((.Range("D2:D" & Zeilenzahl)) * (.Range("A2:A" & Zeilenzahl) Mod 10), "<9")
End With
what i want is, sum the values in Column D for each row, where...