Zeile mit Formeln unter bereich Einfügen

Das mit dem Sperren/Entsperren würde ich mir überlegen, das dauert...

Ich gehe davon aus das Du weißt was Du mit dem Code unten machen musst!?

Andreas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Source As Range, Area As Range

'Nur wenn eine Zelle geändert

If Target.Count > 1 Then Exit Sub

'Nur wenn in Spalte K geändert

Set Target = Intersect(Me.Columns("K"), Target)

If Target Is Nothing Then Exit Sub

'Nur ab Zeile 7

If Target.Row < 7 Then Exit Sub

'Nur wenn was drin ist

If Target.Value = "" Then Exit Sub

'Sicher ist sicher...

On Error GoTo Errorhandler

'Entsperren

Me.Unprotect

'Events aus, sonst rufen wir uns selber auf

Application.EnableEvents = False

'H:R von oben, ausser K

Set Source = Intersect(Target.Offset(-1).EntireRow, Me.Range("H:J,L:R"))

For Each Area In Source.Areas

Area.Resize(2).FillDown

Next

'G:S nach unten

Set Source = Intersect(Target.EntireRow, Me.Range("G:S"))

Source.Resize(2).FillDown

'Sperren

Me.Protect

Errorhandler:

'Fertig für die nächste Runde

Application.EnableEvents = True

End Sub

Hallo Birgit,



ich habe nicht die entsprechenden Daten vorliegen, aber bei den RUNDEN-Formeln sollte sich das Ergebnis nicht ändern, da beim Einfügen einer Zeile die Bereich angepasst werden.

Anders ist es allerdings bei den WVERWEIS-Formeln. Der Zeilenindex ist relativ und erhöht sich beim Einfügen einer Zeile.

Beispiel:

WVERWEIS($F$14;$BO$17:$CK$658;CK40)

wird zu

WVERWEIS($F$14;$BO$17:$CK$659;CK41)

Also CK40 ändert sich zu CK41

Außerdem würde ich auch den Bereichverweis in die Formel einfügen. Also bei korrekter Übereinstimmung:

WVERWEIS($F$14;$BO$17:$CK$659;CK41;0)



Mit freundlichen Grüßen

Claus

Gutem Morgen Claus,

ich glaube langsam verstehe ich es. Das Makro bringt mir für eine leere Zeile nichts, da es nichts kopieren kann.

Also meine Zeilen gehen von 16-41 (mit Text, Formeln, Kategorien) in diesem Bereich funktioniert alles super. Keine Probleme.

Dann kommt die Zeilen 42-157 (Formeln, Kategorien), hier erhalte ich bei dem Makro "Laufzeitfehler 1004". Theoretisch benötige ich hier ja nur noch die UID beim benutzen des Makro.

Meine Überschriften gehen von Spalte A bis BQ.

Die neue Zeile hätte ich gerne zwischen 16-157 eingefügt. Mir ist nun bewusst, dass ich das Makro nicht in eine leere Zeile einfügen kann und dass das Schwachsinn ist.

Ich benutze nach wie vor das von dir vorgeschlagene Makro. Wie gesagt es funktioniert in ausgefüllten Zeilen perfekt, aber in Zeilen mit Formeln und Kategorien, wo lediglich die UID fehlt, bekomme ich einen Fehler.

Tut mir leid für meine ungenauen Angaben, wie gesagt ich lerne erst damit umzugehen und vielen dank für deine investierte Zeit.

Mit freundlichen Grüßen

HansPeter

Hallo Claus,

leider hat es diesmal nicht funktioniert und ich weiß wirklich nicht woran es liegt. Vielleicht war es auch meinerseits schlecht erklärt.

Also wenn ich das Makro von oben in eine leere Zeile einfüge bekomme ich immer noch die selbe Fehlermeldung, das einzige was eingtragen wird ist die UID.

Wenn ich das Makro in eine Zeile einfüge in der bis auf die UID alles vorhanden ist, also Formeln und Kategorie (der Indikator) sind bereits da, gibt er mir wieder die selbe Fehlermeldung.

Also wenn Makro mir z.B. Zeile 17 (von Spalte A bis BQ) mit den Formeln, aber ohne ausgefüllte Zellen, in jede mir jede beliebige Zeile einfügen würde wäre das perfekt.

Besser kann ich es mit meinem Wissensstand nicht erklären.

Mit freundlichen Grüßen

HansPeter

Hallo Andreas,

der Term mit ZEILE gibt die Zeile des Ausgabewertes zurück. Weil BEREICH.VERSCHIEBEN erst in Zeile 2 beginnt, muss dann dieser Term um 1 versetzt werden, denn in Array-Formeln müssen alle Bereich gleich groß sein, damit es keinen Fehler ergibt.



Claus