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