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