Also mit einer Formel glaube ich nicht, das dies funktioniert.
Habe hier ein kleines Makro:
Code:
Sub ZelleEinf()
Dim Anzahl As Integer
Dim i As Integer
Anzahl = Sheets("Tabelle1").Range("A2").Value
i = i + 1
For i = 1 To Anzahl
Sheets("Tabelle1").Rows("10").Insert Shift:=xlDown
Next i
End Sub
In der Zelle A2 befindet sich die Anzahl, der einzufügenden Zeilen.
Sheets("Tabelle1").Rows("10") <---- die 10 ist die Zeilennummer, ab der die neuen Zeilen eingefügt werden.
Grüße
Silcono
Hier das angepasste Makro mit Kopieren der Zeile 10:
OptionExplicit
Sub ZelleEinf()
Dim Anzahl AsInteger Dim i AsInteger
Anzahl = Sheets("Tabelle1").Range("D5").Value
i = i + 1 For i = 1To Anzahl
Sheets("Tabelle1").Rows(10).Insert Shift:=xlDown Next i
Sheets("Tabelle1").Rows(10 + i - 1).Copy Sheets("Tabelle1").Range("A10:A" & 10 + i - 1)