Spalten einfügen

[tobipale]

Hallo zusammen,
da ich leider auf keinen grünen Zweig komme bitte ich euch um Hilfe!
Und zwar brauche ich eine Makro, die mir Spalten einfügt.
Von Spalte N bis Spalte GL soll nach jeder schon vorhandenen Spalte eine neue rechts daneben erzeugt werden.
Vielen Dank für eure Hilfe!!!

Schöne Grüße

Tobi


Bisheriger Code:
Sub SE()
   
    Dim i As Long
    For i = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
        Cells(1, i).EntireColumn.Insert Shift:=xlToRight
        Cells(1, i).EntireColumn.Insert Shift:=xlToRight
    Next i
End Sub


Dieser funktioniert zwar für kleine Anwendungen, aber nicht für meine Zwecke.

[tobipale]

Option Explicit
Sub SpaltenEinfügen()
    Dim Spalte As Integer
    For Spalte = Selection.Column + Selection.Columns.Count - 1 To Selection.Column Step -1
        Columns(Spalte + 1).Insert
    Next
    Columns("BI:BT").Select
End Sub

Hat sich erledigt;)

[BoskoBiati]

Hallo,

Code:

Sub SE()
   
    Dim i As Long
    i = 15
    Do Until i = Cells(1, Columns.Count).End(xlToLeft).Column + 1
       Columns(i).EntireColumn.Insert Shift:=xlToRight
       i = i + 2
    Loop
End Sub