Bereiche kopieren, transponieren - untereinander
31.07.2018 12:06:56
Jakob
Ich hab folgendes Problem, und bin mit der Suche leider nicht weitergekommen.
Ich habe in einem Blatt (Database) immer gleiche Bereiche (zB A2:C6, A11:C15, A20:C24, usw).
Diese möchte ich nun in das Blatt Analysis_A kopieren und transponieren.
Den Code zum Kopieren der Bereich und einfügen schaffe ich, allerdings weiß ich nicht, wie ich das ganze als Schleife mache. Und ich scheitere bei der Definition des Zielbereichs (wegen dem Transponieren).
Und irgendwo hab ich einen Denkfehler da drin, seh ihn aber wohl nicht.
i = 2
For Each i In Sheets("Database")
ActiveSheet.Range(Cells(i, 1), Cells(i + 5, 3)).Copy
Sheets("Analysis_A_Qualitative").Range(Cells(i, 1), Cells(i + 3, 6)).PasteSpecial Paste: _
=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
i = i + 9
Next i
LG; Jakob