Allgemeines Beispiel dazu:
Option Explicit
Sub Test()
Dim rng As Excel.Range
ActiveSheet.UsedRange.Clear
Set rng = Range("B1:E10")
'Beispieldaten erstellen
rng.Formula = "=CHAR(64+COLUMN())&ROW()" 'Zellen ihre Zelladresse als Inhalt geben
rng.Value = rng.Value
Stop 'weiter mit F5
'nun fügen wir im Bereich vor der zweiten Spalte - im diesem Beispiel ist das Spalte C - drei Spalten ein
With rng.Columns(2)
Call .Resize(ColumnSize:=3).Insert(XlInsertShiftDirection.xlShiftToRight)
End With
Stop 'weiter mit F5
End Sub
|