Hallo liebe User!
ich habe zwar im Internet vieles gefunden aber nichts was halbwegs meinem Fall entsprach, deswegen würde ich hier um eure Hilfe bitten.
Ich will folgendes:
Diese Spalten stehen untereinander:
1234567
ABCDEFG
HIJKLMN
ABCDEFG
HIJKLMN
ABCDEFG
HIJKLMN
Die Spalten sollen nach dem Ausführen eines Makros aber so aussehen:
1234567
ABCDEFGJKLMN
ABCDEFGJKLMN
ABCDEFGJKLMN
Die Spalten H und I fliegen also raus, man kann sie natürlich auch nachträglich raushauen.
Das geht über ca. 50000 Zeilen so.
Hier ist mein Code, der leider nur ansatzweise funktioniert und in der nun in jeder zweiten Zeile eine Lücke ist:
Code:
Sub Makro1()
Application.ScreenUpdating = False
For Each c In Application.Intersect(ActiveSheet.UsedRange, ActiveSheet.Range(„A:H“)).Cells
If (c.Row + 1) Mod 2 = 0 Then
c.Insert shift:=xlShiftToRight
End If
Next
Application.ScreenUpdating = True
End Sub
Ich hoffe ihr könntet mir da weiterhelfen und würde mich über jede Antwort freuen.
Danke und Grüße