Kann man dieses Makro mit WorksheetFunction vereinfachen?

Sub Grundeinstellung()

    Dim Matrix(1 To 3, 1 To 2) As Double

    Dim Kehrwert

    

    Matrix(1, 1) = 2:        Matrix(1, 2) = 4

    Matrix(2, 1) = 16:     Matrix(2, 2) = 32

    Matrix(3, 1) = 1:     Matrix(3, 2) = 7

   

    Kehrwert = KehrwertBerechnen(Matrix)

    Stop

End Sub



Function KehrwertBerechnen(Rechteck)

    Dim Zeile As Integer, Spalte As Integer, a

    a = Rechteck

    For Zeile = LBound(a, 1) To UBound(a, 1)

        For Spalte = LBound(a, 2) To UBound(a, 2)

            a(Zeile, Spalte) = 1 / a(Zeile, Spalte)

        Next Spalte

    Next Zeile

    KehrwertBerechnen = a

End Function