Hallo Leute, ich würde gerne jede zweite Spalte kopieren (Step 2) und sie danach aber nicht in jede zweite Spalte wieder einfügen, sondern keine Spalte freilassen (Step 1).

So lautet mein Code, wenn ich jede zweite Spalte kopiere und diese in jede 2te Spalte wieder einfüge.

Gibts einen Trick um beim Einfügen keine Spalte freizulassen?

maxmessung_ = WorksheetsFunction.Max(Range("C5:IV5"))
    
    For I = 1 To maxmessung_ Step 2
        For m = 1 To 12
                Worksheets("Rohdaten").Cells(38 + m, 2 + I) = Worksheets("Rohdaten").Cells(6 + m, 2 + I)
        Next
    Next