Transpose dynamische Tabelle
28.07.2022 09:39:06
Henry
ich hoffe ihr nehmt es mir nicht übel, dass ich nochmal einen neuen Thread aufmache.
Aber ich komme leider nicht weiter.
Ich möchte eine dynamische Tabelle "Test_Matrix" transponieren.
Der folgende Code klappt allerdings nur ansatzweise.
Das Problem ist, dass aus der Tabelle "Test_Matrix" nur der Bereich D8:F11 übertragen wird.
In Wirklichkeit hat die Tabelle "Test_Matrix" jedoch einen Bereich von D8:F15.
Könnt ihr mir hier weiterhelfen?
Ich habe folgenden Code:
Sub Transpose()
Dim WS As Worksheet
Dim MyArray() As Variant
Set WS = Worksheets("Tabelle1")
MyArray = WS.Range("Test_Matrix")
Worksheets.Add
ActiveSheet.Range("A1", Range("A1").Offset(UBound(MyArray, 2) - 1, 3)).Value = Application.Transpose(MyArray)
End Sub