Office: Makro zum Lösen eines flexiblen LGS

Hallo Leute,
bin neu hier und noch ein Excel-Rookie also hoff ich ihr könnt mir helfen!

Habe ein Problem bei dem ich nicht weiterkomme, und zwar möchte ich ein LGS mittels eines Makros lösen. Die Matrix ist immer quadratisch und das LGS soweit vorbereitet das es jeden Datensatz unabhängig von der Zeilen und Spaltenanzahl aufnehmen und im LGS aufstellen kann:


Sub Vorbereitung()


I = Range("B2")
T = Range("D2")

For a = 1 To I
For b = 1 To T
Cells(4 + a, 0 + b) = 1 + Cells(4 + a, 0 + b)
Next b
Next a

For a = 1 To I
Cells(4 + a, T + 1) = T
Next a

Cells(2, "D") = Cells(2, "D") - 1

Cells(5, 1).Offset(0, T).Range(Cells(1, "A"), Cells(Range("B2").Value, "A")).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1


x = -1 - Range("B2")
y = Range("D2") - 1
Z = Range("D2")


Cells(5, 1).Offset(I + 1, 0).Range(Cells(1, "A"), Cells(1, Range("D2").Value)).Select
Selection.FormulaArray = _
"=TRANSPOSE(MMULT(MINVERSE(R[x]C:R[-2]C[y]),R[x]C[Z]:R[-2]C[Z]))"



Cells(2, 2) = Cells(2, 2) - 1


Cells(5, 1).Offset(I + 1, 0).Range(Cells(1, "A"), Cells(1, Range("D2").Value)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With


End Sub




Der Problembereich ist fett gedruckt, wie man sieht habe ich versucht die Formel zum Lösen des LGS flexibel zu halten, so das sie bei unterschiedlichen Matrixgrößen funktioniert, jedoch bekomm ich hier einen Laufzeitfehler (1004: Die FormulaArray-Eigenschaft des Range Objektes kann nicht festgelegt werden) und bin nach ewigem Herumprobieren mit meinem Latein am Ende!


Bin für jeden Tipp dankbar!
Grüße Twihi

 

Kann mir wirklich niemand helfen?