habe ein hübsches makrogeschrieben (Ist ne abgewandelte form eines Makros, welches ich aus diesem Forum habe und das funktionierte) Leider ist mein pc damit nicht einverstanden. Meldet in der 4. Zeile einen Fehler. Warum?
Dim intZeil As Integer
For intZeil = 60 To 134 Step 4
Column = 19
Range(Cells(intZeil, 1), Cells(intZeil + 3, 1)).Select
Selection.Cut
Cells(51, Column).Select
ActiveSheet.Paste
Column = Column - 1
Next
Vielen Dank, Ingo