Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Über InputBox zu ermittelnde Spaltenanzahl einfügen
Problem
Es soll eine über InputBox abzufragende Spaltenzahl eingefügt werden. Die Startspalte wird im Code über eine Konstante festgelegt.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub InsertColumns()
Const ciStart As Integer = 4
Dim vCount As Variant
vCount = Application.InputBox("Spaltenanzahl:", Type:=1)
If vCount = False Then Exit Sub
Range(Cells(1, ciStart), Cells(1, ciStart + vCount - 1)).EntireColumn.Insert
End Sub