Danke nochmal für eure Zeit.
Andreas
Hallo,
habe mir zwei Ranges definiert (Range1, Range2). Diese will ich nun miteinander multiplizieren. Ich habe auch schon den dafür erforderlichen Platz reserviert. Leider scheine ich den Befehl nicht zu kennen, den ich dazu benötige. GerdZ hatte mir vorher bei einem ähnlichen Problem mit der Transponierten geholfen.
Ich habe unten meinen Quellcode angehängt.
Danke für eure Zeit
Andy
Sub mmult()
Dim range1 As Range
Set range1 = ActiveSheet.Range(Cells(1, 1), Cells(6, 1))
Range(Cells(1, 5), Cells(1, 10)).Select
Selection.FormulaArray = "=transpose(" & range1.Address & ")"
Set range2 = ActiveSheet.Range(Cells(1, 5), Cells(1, 10))
Range("e3:j8").Select
Selection.FormulaArray = "=mmult(" & range1.Address, range2.address & ")"
End Sub