Gruppe
Allgemein
Bereich
Bereich
Thema
Anzahl der einzufügenden Zeilen abfragen
Problem
Wie kann ich die Anzahl der einzufügenden Zeilen über VBA abfragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub ZeilenEinfuegen()
Dim vRow As Variant
vRow = InputBox("Anzahl der Zeilen:")
If vRow = "" Then Exit Sub
Rows(ActiveCell.Row & ":" & _
ActiveCell.Row + vRow - 1).Insert
End Sub