Hallo Zusammen

Gibt es eine Möglichkeit im Excel Zeilen automatisch hinzuzufügen ?

Habe ein Rapportvorlage erstellt wo ca 10 Zeilen mit Formeln existieren. Jede Zeile hat immer die Gleiche Formel. Jetzt will ich wenn die letzte Zeile (10te) ausgefüllt wird das automatisch eine weiter Zeile dazugeneriert wird, wobei alle Funktionen und Formeln von der darüberliegenden Zeile übernommen wird.

Wenn ich eine gewisse Anzahl Zeilen mit Formel vordefiniere werden diese Seiten aufnummeriert und beim Drucken miteinbezogen obwohl noch keine Einträge vorhanden sind. Ich möchte nur soviele Seiten und Ausdrücke haben wie auch Zeilen ausgefüllt wurden.

Gruss Panter

Hallo Zusammen

Habe hier die Lösung:
Dieses VBS Script macht folgendes.
Sobald man in der Spalte E einen Wert eingibt, wird automatisch eine neue Zeile mit den Formeln erstellt .
Er mach von der Letzte Zeile eine 1:1 Kopie und fügt sie eins höher wieder ein.


Gruss Panter


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(Cells(Target.Row, 5), Cells(Target.Row, 5))) Is Nothing Then
If Not IsEmpty(Target) Then
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Copy
Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert
End If
Application.CutCopyMode = False
End If
End Sub

Danke Panter! Das versuche ich mal. Kann ich auch gut gebrauchen.

Gruss
Gandalf