Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl der einzufügenden Zeilen abfragen

Gruppe

Bereich

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