Transponieren von großen Datenmengen

Falls man mal mehr transponieren muss als Excel zulässt.

Sub transponieren()

For intRow = 1 To 100
Sheets("Tabelle1").Cells(intRow, 1).Copy
Sheets("Tabelle2").Cells(1, intRow).Select
ActiveSheet.Paste
Next intRow

End Sub