Frage an Yal
23.03.2022 09:48:19
Matthias
Du hattes mir vor einiger Zeit ein Makro (s.u.) zukommen lassen, mit dem ich 3 Spalten in 6-er Blöcken umsortieren kann.
Nun will es mir nicht gelingen das makro so abzuändern, dass jeweils 5 Zeilen umsortiert werden.
Vielleicht könntest Du mir ja nochmal auf die Sprünge helfen.
Danke schon mal,
Matthias
Sub Transformiere()
Dim Z As Range
Dim R As Long 'Row-Ziel
Dim C As Long 'Column-Ziel
With Worksheets("Eingabe")
For Each Z In .Range(.Range("A1"), .Range("A1").End(xlDown)).Cells
R = (Z.Row - 1) Mod 6 + 1
C = Int(Z.Row / 6) * 3 + 5
.Cells(R, C).Resize(1, 3) = Z.Resize(1, 3).Value
Next
End With
End Sub