Hi,

ich habe eine Schleife, bei der die Werte aus einem Sheet in einem anderen Sheet in der nächsten freien Reihe reinkopiert werden sollen. Dabei sollen aber nur die Werte eingefügt werden, die sollen auch transponiert und nebeneinander eingefügt werden (nicht untereinander). In der nächsten Schleifenrunde sollen die neuen Werte in der nächsten freien Reihe transponiert nebeneinander eingefügt werden, usw. Ich habe eine Formel schon geschrieben, nur ist das Problem, dass VBA die Werte untereinander transponiert einfügt und nicht nebeneinander.

Unten ist ein Ausschnitt der Formel. Kann mir jemand dabei helfen?

For i = 1 To 2

Sheets("Allokation").Select
        Range("$B$1", "$F$35").Select
        Selection.Copy
        Sheets("Drop").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
 Next i

Dank im Vorraus für die Hilfe!