Matritzen-Rechnung
09.07.2007 14:31:00
Dennis
ich verzweifel gerade daran mittels VBA Matritzen zu berechnen.
Eine Berechnung auf dem Tabellenblatt selbst funktioniert, aber ich möchte das gerne umgehen...
Als einfaches Beispiel:
Ich möchte einen Punkt mittels der Transormationsmatrix, rotieren
T = [cos(winkel), -sin(winkel
sin(winkel, cos(winkel) ]
ich dachte ich kann es einfach in VBA folgendermaßen eingeben:
Dim Punkt(), T() As Double
Public Sub Matrix()
ReDim Punkt(2, 1), T(2, 2)
Pi = Application.Pi
Punkt(1, 1) = 5
Punkt(2, 1) = 7
winkel = 40 * Pi / 180
T(1, 1) = Cos(winkel)
T(1, 2) = -Sin(winkel)
T(2, 1) = Cos(winkel)
T(2, 2) = Sin(winkel)
test = WorksheetFunction.MMult(T, Punkt)
End Sub
Das führt allerdings zu einem Laufzeitfehler "1004"
Wenn ich allerdings die Matrix nicht in VBA erstell sondern über Excel einlese:
T = Range("A5:B6").Value
Punkt = Range("D1:D2").Value
funktionierts....
Muss ich die Matrix erst ins Tabellenblatt schreiben?
Hoffe es kann mir einer weiter helfen
Gruss Dennis