Clever-Excel-Forum

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.

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;)

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

tobipale

tobipale

BoskoBiati