Zeile einfügen - Formeln pbernehmen

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 Claudia,
<br />das Wichtigste hast du schon von Olivia erfahren.
<br />Wenn du in den Optionen => Erweitert => Bearbeitungsoptionen die Option "Datenbereichsformate und -formeln erweitern" aktivierst, werden Formate und Formeln übernommen, wenn du eine Zeile unterhalb der 5. vollständig ausgefüllten Zeile einfügst.
<br />Claus
<br />

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

Danke Claus, Dein Hinweis hat mich auf die richtige Spur gebracht: ich kann auf die Zellen ja mehrfach Formeln anwenden, was dann wie eine Oder-Verknüpfung in einer logischen Formel wirkt.

Was zudem auch klappt: wenn ich eine neue Zeile in die Tabelle einfüge, dann werden die Formeln auch auf die neue Zeile übertragen, das "Ausfüllen mit nach unten ziehen" ist somit nicht notwendig.

Mein Problem ist gelöst. Nochmals vielen Dank

Hansjörg

Hallo Tim,
<br />kontrolliere mal, dass in den Optionen => Erweitert => Bearbeitungsoptionen "Datenbereichsformate und -formeln erweitern" aktiviert ist.
<br />Dann sollten sich die Formeln und Formate erweitern, wenn du mindestens 5 Zeilen der Tabelle lückenlos ausgefüllt hast.
<br />Wenn du eine Leerzeile einfügst, fängt das Zählen der 5 Zeilen wieder von vorne an.
<br />Claus
<br />