Hallo zusammen,
kann mir jemand den Code unten dahingehend umschreiben, dass er für jede markierte Zeile die angebene Anzahl an Zeilen einfügt? Wenn ich bisher mehrere Zeilen markiere werden die Zeilen nur vor der als letzten markierten Zeile eingefügt.
Ich wäre auch sehr dankbar!
Sub wievielezeile()
Dim zeilenanzahl As Integer
zeilenanzahl = InputBox("Wieviel Zeilen?")
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cancel = True
End Sub
Quelle: http://www.herber.de/forum/archiv/288to292/288940_bestimmte_Anzahl_von_Zeilen_einfuegen.html
Grüße
Jonas
|