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