Wenn Bedingung erfüllt, Zeile verschieben und eine Leere einfügen

[StefanB]

Hallo @all,

folgende Herausforderung. Wenn im Tabellenblatt1 in der Spalte K ein "x" gesetzt wird, verschiebt sich die komplette Zeile in ein anderes Tabellenblatt (Archiv). Siehe Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count = 1 Then

    If Target.Row > 3 Then

      If Target.Value = "x" Then

        Target.EntireRow.Copy Worksheets("Archiv").Cells(Rows.Count, 11).End(xlUp).Offset(1, -10)

        Target.EntireRow.Delete

      End If

    End If

  End If

End Sub

Nun soll aber dafür im Tabellenblatt1 eine neue Zeile mit Formeln eingefügt werden. Wie würde dann der Code aussehen? Hintergrund: nach dem Verschieben einer Zeile, verkleinert sich dementsprechend auch der Bereich um genau eine Zeile für die z.B. bedingte Formatierungen oder Formeln.   

Besten Danke im Voraus, Stefan

[schauan]

Hallöchen,

a) lösche die Zeile nicht sondern nur die Daten, die in den Formeln dieser Zeile verarbeitet werden.
b) kopiere eine Zeile mit Formeln und füge sie dort ein, wo sie gebraucht wird. Du musst dann natürlich auch wieder die Daten löschen, die nicht benötigt werden
c) schaue Dir mal das Thema "intelligente Tabellen" / Listen an. wenn Du dort neue Daten unten anfügst, erweitert sich diese Liste und zieht die in der Zeile darüber liegenden Formeln nach. Meistens jedenfalls, kommt auf die Formeln an.

[StefanB]

Hallöle,

vielen Dank für den Tipp!!! Das schaue ich mir mal morgen in Ruhe an und geb ein Feedback.

Grüße Stefan

[StefanB]

So, habs nun doch gleich getestet   funz super! Danke für den Tipp