Office: (Office 365) Zellen einfügen auf Basis einer Eingabe

Hallo,

ich möchte gern sobald in Zelle D57 eine Zahl steht, z.B. 5, das 5 Zeilen ab Zeile 60 eingefügt werden.

Wie könnte ich dies umsetzen?
Vielen Dank

Jeanette

 

per VBA

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$57" And IsNumeric(Target) Then
        Application.EnableEvents = False
        Rows("60:64").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Application.EnableEvents = True
    End If
End Sub

 

Hi Jeanette,

D57 - steht dort eine Formel oder wird der Wert von Hand eingegeben?

---

 

Hallo,

In D57 wird vom Anwender eine benötigte Anzahl von weiteren Zeilen angegeben.

Die Zahl ist nicht definiert. Können mal 2 aber auch mal 5 sein.

Danke.

 

Hi Jeanette,

im Prinzip wie Hajo schon geschrieben hat, nur dynamisch für die eingegebene Anzahl:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZeilen As Range
    If Target.Cells(1).Address(False, False) = "D57" Then
        If IsNumeric(Target.Cells(1)) Then
            Set rngZeilen = Range(Cells(60, 1), Cells(59 + Target.Value, 1))
            rngZeilen.EntireRow.Insert
        End If
    End If
End Sub

---

 

Hallo,

danke funktioniert. Leider habe ich nicht bis zu ende gedacht.

Sobald ich (Seitenanfang) Zeilen dazufügen lasse, schiebt sich ja alles andere logischer Weiße auch nach unten.
Ich habe weitere 4 Zeilen welche sich mit der Eingabe der benötigten weiteren Zeilen erweitern soll.

Sprich Zeile 59 + plus gewünschte Anzahl von Zeilen
Dazu kommt Zeile 76 + plus gewünschte Anzahl von Zeilen

etc .... nur Zeile 76 bewegt sich ja nach unten aufgrund der gewünschten Zeilenanzahl von Zeile 59.

Kann man hier einen Punkt anfahren? Die Tabellen die entstehen sollen haben immer die gleiche Überschrift.

A59 = Hersteller - darunter sollen die gewünschten Anzahl von Zeilen eingefügt werden
A76 = Hersteller - wobei sich ja A76 entsprechend verschiebt ....

Danke Jeanette

 

Hi,

gib der Zelle A76 einen Namen, z.B. "Hersteller". Dann kann man den Code wie folgt erweitern:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZeilen As Range
    If Target.Cells(1).Address(False, False) = "D57" Then
        If IsNumeric(Target.Cells(1)) Then
            Set rngZeilen = Range(Cells(60, 1), Cells(59 + Target.Value, 1))
            rngZeilen.EntireRow.Insert
            Set rngZeilen = Range(Range("Hersteller"), Range("Hersteller").Offset(Target.Cells(1) - 1, 0))
            rngZeilen.EntireRow.Insert
        End If
    End If
End Sub

---

 

Danke. die Zusammenhänge passen noch nicht. darf ich die Datei mal hochladen? Dann ist eventuell die Erklärung einfacher.

 

Beispielmappen sind immer gern gesehen.

---

 

... Seite 2 ....

Anzahl der eing. Rollen ist vom Anwender zu pflegen ... entsprechend wird dann ab Zeile 61 Zeilen ergänzt.
Das setzt sich dann fort ... sprich Welle 1 - Anzahl der eing. Rollen - Erweiterung der Zeilen und das ganze bis zu 5 mal.

Ich hoffe man kann es verstehen. Vielen Dank für die Unterstützung.

 

Sorry, aber irgendwie verstehe ich nicht so richtig, was der Code nun machen soll. Soll immer nach dem Begriff "Wellen..." gesucht werden und dann direkt unterhalb (im Beispiel ab Zeile 62 und ab Zeile 77, also jeweils unterhalb der verbundenen Zellen) die betreffende Anzahl an Zeilen eingefügt werden?

---

 

Ähm nein.

die Anzahl der eingesetzten Rollen bestimmt die einzufügenden Zeilen unter Hersteller.

 

Welche Anzahl eingefügt werden sollen weiß ich, aber nicht genau WO, denn das Wort Hersteller gibt es mehrmals - es ist also immer noch nicht klar, unterhalb welcher Überschrift "Hersteller" genau die Zeilen eingefügt werden sollen, also ab jeweils WELCHER Zeile. Gib doch einfach mal eine konkrete Überschrift (in welcher Zelle auch immer) an, nach der man sich richten kann. Oder soll unter JEDER Überschrift "Hersteller" eingefügt werden?

---

 

Ich habe es noch einmal angepasst. Die grünen Felder = Anzahl der Zeilen
Ich habe mal die Hersteller erweitert. Vielleicht ist es so "einfacher".

 

Bitte gehe doch einfach mal auf ein meine Frage ein: - aber jeweils WELCHER Zeile in Bezug auf die grünen Eingabezellen sollen die jeweiligen Zeilen eingefügt werden? Mit anderen Worten: WORAN erkennt man, ab wo die Zeilen eingefügt werden sollen?

---