Office: Zeilen einfügen nach einem bestimmten Muster

Ich möchte gern in eine bereits bestehende Tabelle aus 9 Einträgen in der Spalte A zu jedem Eintrag eine Menge von Zeilen einfügen. Die Anzahl der Zeilen möchte ich gern vom Benutzer erfragen.
Die Anzahl ist für alle 9 Einträge gleich.
Kann mir jemand helfen.

Die Abfrage ist klar mit
m = InputBox("Bitte geben sie die Nummer des aktuellen Monats ein! " & _
"z.B. für Mai eine 5", Title:=msgTitel)

Sei z die Zeile, in der der erste Eintrag steht.
Nun hätte ich gern so etwas wie:

For i = 1 To 9
For d = 1 To m - 1
Rows("z+1:z+1").Select
Selection.Insert Shift:=xlDown
ActiveLine.FormulaR1C1 = "&i&"
Next d
z = z + m
Next i

Aber das funktioniert leider nicht.
Kann mir jemand helfen?

 

Hallo,

kürzlich habe ich in einem ähnlichen Zusammenhang folgendes gepostet:

Sub ZeilenEinfügen()
Dim z As Variant
z = Application.InputBox _
("Geben Sie die Anzahl der einzufügenden Zeilen ein.", _
"Zeilen einfügen", "6", , , , , 2)
For x = 1 To z
Selection.EntireRow.Insert
Next x
End Sub

Wo der Cusor steht, werden die Zellen eingefügt.
Ich empfehle den Shortcut Strg+a, weil es in der Praxis mit am schnellsten geht.

Hilft Dir das?

Gruß
J.