Spalten einfügen
#1
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.
Top
#2
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;)
Top
#3
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
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste