Sub Matrixmultiplikation()
'Multiplikation einer nXn Matrix
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim Summe As Double
Dim matrixa() As Double
Dim matrixb() As Double
Dim matrixc() As Double
Dim Dimension As Integer
Dimension = InputBox("bitte Matrixdimension eingeben!")
If Not (IsNumeric(Dimension)) Then
Exit Sub
End If
Dimension = CInt(Dimension)
ReDim matrixa(Dimension, Dimension)
ReDim matrixb(Dimension, Dimension)
ReDim matrixc(Dimension, Dimension)
'Einlesen der Matrizen aus em Tabellenblatt ins Array
For I = 1 To Dimension
For J = 1 To Dimension
matrixa(I, J) = Cells(I, J).Value
Next J
Next I
For I = Dimension + 2 To 2 * Dimension + 1
For J = 1 To Dimension
matrixb(I - Dimension - 1, J) = Cells(I, J).Value
Next J
Next I
'Alle Zeilen
For I = 1 To Dimension
' Alle Spalten
For J = 1 To Dimension
Summe = 0
'Bilden des Skalarproduktes
For K = 1 To Dimension
Summe = Summe + matrixa(I, K) * matrixb(K, J)
Next K
matrixc(I, J) = Summe
Next J
Next I
'Ausgabe der Matrix c
For I = 1 To Dimension
For J = 1 To Dimension
Cells(I, Dimension + J + 1).Value = matrixc(I, J)
Next J
Next I
End Sub