Gruppe
Allgemein
Problem
Wie kann ich unterhalb der markierten Zeilen soviel Zeilen einfügen, wie ich markiert habe?
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