um den Inhalt eines Arrays auf ein Tabellenblatt zu übertragen, verwende ich normal folgende Methode:
Sheets("Tabelle1").Cells(1, 1).Resize(UBound(myArr, 1), UBound(myArr, 2)) = myArr
Nun möchte ich aber ein - sehr großes - Array möglichst schnell transponiert auf ein Tabellenblatt übertragen. Die 1. Dimension des Array sind die Spalten und die 2. Demension die Zeilen. Dazu verwende ich folgenden - leider zeitlich recht lang dauernden - Code:
For i = 1 To UBound(myArr, 2)
For j = 1 To UBound(myArr, 1)
Sheets("Tabelle1").Cells(i, j) = myArr(j, i)
Next j
Next i
Gibt es nach Eurer Ansicht eine elegantere (vor allem aber schnellere) Möglichkeit den Array-Inhalt in transponierter Form in die Tabelle zu übertragen?
Viele Grüße
Martin