Gruppe
Allgemein
Bereich
Bereich
Thema
Zeilen oberhalb der markierten Zellen einfügen
Problem
Wie kann ich unterhalb der markierten Zeilen soviel Zeilen einfügen, wie ich markiert habe?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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