Office: Array

Hi,
Bruache mal Hilfe
ich habe mir ein Makro geschrieben. diese soll mir ein Array machen welches ich dann an matlab gebe nur muß das Array ein "Zeilen Array" aber ich bekomme nur ein "Spalten Array".
hat da jemand eine ahnung wie es geht?

mein code bis jetzt


Dim MySheet As Worksheet
Dim Arra As Variant



'Anpassungen an EXCLE 2000
Private Declare Function GetCurrentThreadId Lib "kernel32.dll" () As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long

Sub Main()
Set MySheet = Worksheets("Tabelle1")
A1 = 0
A1 = MySheet.Cells.Range("A1")
Arra = Array(0, 0) 'Erzeugt ein Array für simulink
Arra(1) = A1 'Schreibt an die Zweite Stelle den Inhlt Auszelle A1


'Set myRange = Range("A1")
MLPutVar "Arra", Arra 'Muß MLPutVar heissen da die Variable nur in der Vb ist

MLEvalString (";sim 'Verstaerkt'")
'MLEvalString ("b = b / 2; plot (b)")


'MLShowMatlabErrors ("yes")

MLGetMatrix "simout", "Tabelle1!A5"
MatlabRequest
End Sub


Danke schon mal

 

Hallo!

Teste doch mal, ob sowas funktioniert:

Arra = Worksheetfunction.Transpose(Arra)

 

Ne macht mir immer noch das array in spalten!

schade