Hallo zusammen,
ich bekomme bei meinen Programm immer eine Laufzeitfehlermelung 1004: Die MInverse-Eigenschaft des WorksheetFunction Objektes kann nicht zugeordnet werden.
Ich muss ein Programm schreiben, bei dem eine Matrix eingelesen wird und eine Inverse ausgegeben.
Bei dem Befehl: Inv = Application.WorksheetFunction.MInverse(A()) bekomme ich die Fehlermeldung.
Sub InverseBilden(ByRef A() As Double, ByVal n As Integer)
Dim Inv
Dim i As Integer, j As Integer
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i, 3 + j)
Next j
Next i
Inv = Application.WorksheetFunction.MInverse(A())
Range(Cells(1, n + 3), Cells(n, 3 + 2 * n)) = Inv
|