Mehrere Leerzeilen in Exceltablelle einfügen

Question

Hallo,

ich möchte gerne in einer Exceltabelle nach einer Datenzeile immer 10 Leerzeilen einfügen. Ich habe folgendes Makro ausprobiert zum einfügen von 1 Zeile, das hat auch bestens funktioniert. Wie schreibe ich das Makro um so dass anstatt nur 1. Zeile direkt 10 Leerzeilen eingefügt werden?

Hier das Makro:

Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Menge1 = i & ":" & i
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub

Danke und Gruß

Answer 1

Hallo diver,

addiere in der Zeile

Menge1 = i & ":" & ieinfach die Zahl 9 hinzu. Das Makro sieht dann wie folgt aus:

Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Menge1 = i & ":" & i + 9
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Oliver,

vielen Dank für Deine schnelle Hilfe. Wie Du sicherlich erkannt hast, war es eh ein Makro das ich hier aus dem Forum von Dir vorher kopiert hatte.

Da ich erst das 2. Mal überhaupt mit Makros arbeite, bin ich auf Mithilfe angewiesen und für jede Hilfestellung dankbar.

Jetzt habe ich noch eine weitere Frage. Wie kann ich das Mako ergänzen bzw ändern, damit nur eine bestimmter Zeilbereich bearbeitet wird? Also ich habe z. B. insgesamt 500 Zeilen, möchte die Leerzeilen aber nur im Bereich 25 bis 150 haben?

Danke und Gruß

Answer 3

Hallo Oliver,

habe soeben das Makro getestet und es hat alles bestens funktioniert.

Nochmals Danke und Gruß!!!