Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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