Ist Arrays subtrahieren ohne Schleife möglich?

Function aSubtrahieren(aMinuend, aSubtrahend)

'Berechnet Array mit dem Differenz der Zellen in jeder Zelle: e(z,s)=aMinuend(z,s)-aSubtrahend(z,s)



    Dim z As Long, s As Long, e

    ReDim e(LBound(aMinuend, 1) To UBound(aMinuend, 1), LBound(aMinuend, 2) To UBound(aMinuend, 2))

    For z = LBound(aMinuend, 1) To UBound(aMinuend, 1)

        For s = LBound(aMinuend, 2) To UBound(aMinuend, 2)

            e(z, s) = aMinuend(z, s) - aSubtrahend(z, s)

        Next s

    Next z

    aSubtrahieren = e

End Function