FORMULAS USING DIFFERENT CODE

Sub Zellen_füllen()
'Statische Übergabe der Formeln

    Range("A2").Value = Application.WorksheetFunction.SumProduct(Range("B2:B7"), Range("C2:C7"))
    Range("A3").FormulaLocal = "=Summenprodukt(B2:B7;C2:C7)"
    Range("A4").Formula = "=sumproduct(B2:B7,C2:C7)"
    Range("A5").FormulaArray = "=Sum(B2:B7*C2:C7)"
   
End Sub



Sub hilfhilf()

    Range("A3").FormulaLocal = "=Summenprodukt(B2:B7;c2:c7)"
    Range("A4").Formula = "=sumproduct(B2:B7,c2:c7)"
    Range("A5").FormulaArray = "=Sum(B2:B7*c2:c7)"
End Sub