VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilen oberhalb der markierten Zellen einfügen

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

    


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