Hallo zusammen,
kann mir jemand erklären, warum mir bei dem folgenden Code das transponieren nicht funktioniert? Ich bekomme einen "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs". Für b werden mir die korrekten Werte angezeigt. Vielen Dank schonmal für die Hilfe!
Sub transpose()
Dim b As Variant
Dim bT As Variant
Dim i As Integer
b = Range("a1:a2")
bT = Application.WorksheetFunction.transpose(b)
For i = 1 To 2
Debug.Print b(i, 1)
Next
For i = 1 To 2
Debug.Print bT(1, i)
Next
End Sub
|