Zeilen Einfügen / Automatisch

[Jens_A]

Hallo zusammen, bin neu hier da ich bei meiner Suche im Netz nicht wirklich weiter gekommen bin!!

Ich benötige eine Tabelle mit folgenden Anforderungen

Zelle D5 -> Anzahl (wird manuell eingetragen)
Je nach Anzahl soll

Zeile 10 kopiert und unter die Zeile 10 eingefügt werden...

Gibt es dafür eine Funktion in Excel oder benötige ich dafür ein Makro?

Vielen Dank

Zum besseren Verständnis habe ich eine Screenshot beigefügt.

[silcono]

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

[Jens_A]

Hallo erst einmal vielen Dank,

jetzt brauch ich aber noch Hilfe wie ich das Makro an laufen bekommen?

Bin nicht so der Excel-Profi

Vielen Dank

[silcono]

Das soll heißen, du hattest auch noch keinen Kontakt mit VBA?

Grüße Silcono

[Rabe]

Hi,

schau mal hier:
http://www.online-excel.de/excel/singsel_vba.php?f=44

und
http://www.online-excel.de/excel/singsel_vba.php?f=100

Hier das angepasste Makro mit Kopieren der Zeile 10:

Option Explicit

Sub ZelleEinf()
  
  Dim Anzahl As Integer
  Dim i As Integer
  
  Anzahl = Sheets("Tabelle1").Range("D5").Value
  i = i + 1
  For i = 1 To 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)

End Sub

  Zeilen einfügen.xlsb (Größe: 16,9 KB / Downloads: 5)