Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Über InputBox zu ermittelnde Spaltenanzahl einfügen

Gruppe

Arbeitsblatt

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