WorksheetFunction.SumProduct oder Makro?

Sub Vergleich()

    Dim Anzahl, Gewicht, c, Nummer As Long, GesamtGewicht1 As Double, GesamtGewicht2 As Double

    Anzahl = Array(2, 4, 5)

    Gewicht = Array(7, 2, 10)

    

    'Berechnung mit For-Schleife:

    ReDim c(LBound(Anzahl) To UBound(Anzahl))

    For Nummer = LBound(Anzahl) To UBound(Anzahl)

        GesamtGewicht1 = GesamtGewicht1 + Anzahl(Nummer) * Gewicht(Nummer)

    Next Nummer

    

    'Berechnung mit Excel-Funktion:

    GesamtGewicht2 = WorksheetFunction.SumProduct(Anzahl, Gewicht)

    

    'Ergebnisse:

    Debug.Print GesamtGewicht1, GesamtGewicht2,

End Sub