VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Über InputBox zu ermittelnde Spaltenanzahl einfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt