Hallo zusammen,

ich habe den folgenden Code, mit dem ich eine leere Spalte links neben einer bestimmten Spalte einfügen möchte. Leider werden beim ausführen des Makros 15 leere Spalten eingefügt. In einer anderen Datei werden mit dem Makro 3 Spalten eingefügt. Hat jemand eine Idee woran das liegen kann?

1. Sub LeereHilfsspalteEinfügen5()

2. j = ActiveSheet.UsedRange.Columns.Count 

3. For i = 1 To j 

4. If Cells(1, i).Value Like "*jahr Mrz" Then

5. Cells(1, i).EntireColumn.Select

6. Selection.EntireColumn.Insert

7. End If

8. Next i

9. End Sub

Viele Grüße!