Mein Recorset [..]
Leider bietet das Recordset-Objekt keine GetColumns-Methode. Also hab ich versucht das mit Application.Transpose zu lösen:
[...]
Allerdings kommt dann bei mir ein Laufzeitfehler 13: Typen unverträglich. Weiß jemand wieso? Beide Arrays sind bei mir vom Typ Variant deklariert.
Wenn ich mich recht erinnere hat Application.Transpose Probleme mit manchen Werten (es könnte hier Empty gewesen sein; null ist auch so ein Klassiker) und das dürfte den Fehler verursachen.
Mal schauen ob sich dazu Mase meldet; er kennt sich mit dem ADODB.Recordset gut aus und kennt vielleicht einen Trick. ;)
Grüße, Trägheit
PS: Man könnte das Transponieren einer 2-dim Matrix selber implementieren. Der Funktionskörper könnte so aussehen.
ReDim transp(LBound(arr, 2) to UBound(arr, 2), LBound(arr, 1) to UBound(, 1))
For i = LBound(arr, 1) to UBound(arr, 1)
For j = LBound(arr, 2) to UBound(arr, 2)
transp(j, i) = arr(i, j)
Next
Next
|