06.10.2016, 14:20
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.
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.