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

Ich versuche es mal.

D56 = Anzahl der Zeilen --- Erweiterung bzw einfügen unter Zeile 60 also unter Hersteller AD.
somit würde die Zelle D64 (grün) um den Wert in D56 nach unten wandern

D64 + Anzahl D56 = D(unbekannt) = Anzahl der Zeilen --- Erweiterung der jetzigen A68

D71 + Anzahl --- Erweiterung unterhalb Zeile 82
D85 + Anzahl ---- Erweiterung unterhalb Zeile 88

Ich weiß nur nicht ... wie ich es beschreiben soll da ja die Zeilen immer weiter unter rücken.

Wenn man die Bezeichnung Anzahl der eingesetzten Rollen noch mit den Zusatz z.B. Aussendecke (AD) ergänzt und dann nach Hersteller AD sucht und darunter die Anzahl der Zeilen ergänzt ....

 

Das Prinzip wäre damit folgendes: es sollen also jeweils beginnend mit der 5. Zeile (verbundene Zellen A:G) unterhalb der Eingabzelle die angegebene Anzahl an Zeilen -1 hinzugefügt werden? Im angehängten Beispiel wäre folglich für Eingabezelle D56 die Zeilen 61 bis einschließlich 67 einzufügen, sodass die anfängliche Eingabezelle D64 auf Zelle D71 verschoben wird?

---

 

Hallo,

ja ich denke das wäre korrekt.

 

Hi,

dann müsste der Code so hinkommen:

Code:

    Dim rngZeilen As Range
    If Target.Cells(1).Column = 4 Then
        If IsNumeric(Target.Cells(1)) Then
            If Target.Cells(1).Offset(0, -2) = "Anzahl der eingesetzten Rollen:" Then
                Set rngZeilen = Range(Cells(Target.Row + 5, 1), Cells(Target.Row + Target.Value + 4, 1))
                rngZeilen.EntireRow.Insert
            End If
        End If
    End If

Es wird geprüft, ob die Eingabe in Spalte 4 (D) erfolgt ist, numerisch ist und wenn 2 Zellen weiter links der Text steht - dann werden ab 5. Zeile unterhalb bis einschließlich "+ Anzahl Eingabe - 1" Zeilen eingefügt.

---

 

juhu es klappt .... perfekt ... DANKESCHÖN