Liebe VBA-Forum,
ich habe folgenden Code der überprüft, ob die Matrix quadratisch ist und anschließend die Digagonale berechnen soll.
Leider funktioniert der Aufruf nicht (#Wert!)
Was mache ich falsch?
Ich habe auch andere Funktionen im Makromodul, die problemlos aufrufbar sind.
Function matrixDiagonal(matrix As Range)
If matrix.Colums.Count <> matrix.Rows.Count Then
Exit Function
Else
Dim sum As Integer
Value = 0
For i = i To matrix.Colums.Count
sum = sum + matrix(i, i)
Next i
End If
matrixDiagonal = sum
End Function
|