Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub ZeilenEinfuegen()
   Dim iCount As Integer
   With Selection
      iCount = .Rows.Count
      Rows(.Row + iCount & ":" & _
         .Row + (iCount * 2) - 1).Rows.Insert
   End With
End Sub

    

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