mehrere Bereiche kopieren & transponieren
06.08.2019 14:31:14
Jakob
Ich würd wieder einmal um eure Unterstützung bitten.
Ich möchte Bereiche (zb B4:L5, B7:L8, usw.) in ein anderes Tabellenblatt kopieren, transponieren und untereinander darstellen.
Mein Code schaut bisher so aus. Funktioniert insofern, als es die Bereiche kopiert und _ transponiert, aber eben nicht untereinander, sondern immer in denselben Bereich, es überschreibt also.
Sub Kopie()
Dim I As Long
Dim j As Long
I = 4
j = I + 11
For I = 4 To 9 Step 3
Range(Cells(I, 2), Cells(I + 1, 6)).Copy
Sheets("Tabelle2").Cells(j, 8).PasteSpecial , Transpose:=True
Next I
End Sub
Meine Übungsdatei dafür hab ich angehängt.
https://www.herber.de/bbs/user/131292.xlsm
Vielen Dank!
Liebe Grüße,
Jakob