Hallo,
ich arbeite erst seit kurzem mit Excel VBA, daher verzeiht mir bitte meine vielleicht triviale Frage. Es geht dabei um den unten stehenden einfachen Code zum transponieren eines Arrays. Bei Anwendung dieser Funktion in einem Tabellenblatt, erscheint innerhalb der Zellen die Fehlermeldung #Wert.
Ich wüsste gerne warum und bitte um Rat.
Vielen Dank.
----------------------------------------------------------
Public Function M_Trans(Base_Matrix As Variant) As Variant
Dim i As Integer, j As Integer
Dim row_no As Integer, column_no As Integer
Dim matrix() As Variant
row_no = UBound(Base_Matrix, 1)
column_no = UBound(Base_Matrix, 2)
ReDim matrix(1 To column_no, 1 To row_no)
For j = 1 To column_no Step 1
For i = 1 To row_no Step 1
matrix(j, i) = Base_Matrix(i, j)
Next i
Next j
M_Trans = matrix
End Function
-------------------------------------------
|