Zeile einfügen nach erfüllter Bedingung

Hallo Martin,

probiere es mal mit folgendem Makro:

Sub ZeilenEinfügen()

Dim LRow As Long, i As Long

Dim varData As Variant

With ActiveSheet

   LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

   varData = .Range("A1:A" & LRow)

   For i = UBound(varData) To 3 Step -1

      If varData(i, 1) <> varData(i - 1, 1) Then

         .Rows(i).Insert

      End If

   Next

End With

End Sub

Claus

Hallo Steve1da,
es soll eine Liste entstehen, die sich fortlaufend erweitert. Die Liste mit den Zeilen, die die Bedingung erfüllen können wird fortlaufend händisch erweitern (Neue Daten werden eingetragen).
Neue Zeile wird eingefügt. -> Wert in der Zeile erfüllt die Bedingung. -> einige Werte aus dieser Zeile sollen in die Liste übernommen werden.
Lieben Gruß
Lennard

Hallo zusammen,

das Problem konnte ich ebenfalls in Excel 2007 und Excel 2010 nachvollziehen.

Ausgangsfall:

Eine Spalte einer Tabelle ist mit einer bedingten Formatierung vom Regeltyp
Nur Zellen formatieren, die enthalten und einem relativen Zellbezug versehen und wird anschließend nach einer Zellenfarbe gefiltert. Die Formatierung ist korrekt, die Filterung demgegenüber scheinbar nicht.

Mögliche Erklärung:

Ausschlaggebend dafür, ob ein Wert bei der Filterung
Nach Zellenfarbe filtern ein- oder ausgeblendet wird, ist sein erstmaliges Auftreten in der Spalte (Zelle in dieser Spalte mit der niedrigsten Zeilennummer). Ist die Bedingung der bedingten Formatierung erfüllt (bzw. nicht erfüllt), so werden alle Zeilen
mit diesem Wert in der betrachteten Spalte eingeblendet (bzw. ausgeblendet), unabhängig davon, ob die Bedingung in der jeweiligen Zeile des gleichen Wertes erfüllt ist oder nicht.

Beispiel: Mourad's Testdatei - Sheet Test-01

Der Wert 0 tritt in Spalte F das erste Mal in Zeile 3 auf. Die Bedingung ist für Zelle F3 erfüllt, da 0>-3 gilt. Wird die Spalte F nach der Zellenfarbe gefiltert, so bleiben alle Zellen mit dem Wert 0 in der Spalte F eingeblendet, wenngleich nicht alle der
Bedingung genügen.

Bei einer Änderung der bedingten Formatierung für die Spalte F von
größer als auf kleiner oder gleich und anschließender Filterung nach der Zellenfarbe zeigt, dass alle Zellen mit dem Wert 0 ausgeblendet werden und dies, obwohl für Zelle F24 und F30 die Bedingung erfüllt ist. Für
die erste mit dem Wert 0 auftretende Zelle F3 ist in diesem Fall die Bedingung nicht erfüllt , da 0>-3 gilt.

Dies ist auch eine mögliche Begründung, warum der Listeneintrag
Nach Zellenfarbe filtern im Sheet Test -04 deaktiviert ist. Die Bedingung ist für den Wert in Zelle F3 nicht erfüllt, so dass dies für alle gleichen Werte in der Spalte greift. Da es jedoch keine anderen Werte gibt, für die die gesetzte Bedingung erfüllt
ist, kann auch nach keiner Zellenfarbe gefiltert werden und der Listeneintrag wird deaktiviert. Er wird dann jedoch wieder aktiviert, wenn mindestens ein Wert, welcher die Bedingung erfüllt, eingegeben wird (z. B. in Zelle F2 den Wert 5 eintragen).

Gruß,

André

Hallo Claus

vielen Dank für die prompte Antwort.

Habe es probiert aber leider liefert die Formel nicht das richtige Ergebnis: die Zeile die zurück gegeben wird erfüllt die 2. Bedingung nicht...

Hallo LennardGa!

Bitte lassen Sie es mich wissen, wenn Sie zusätzliche Hilfe benötigen, helfe ich Ihnen gerne weiter.

Es tut mir leid, Sie müssen möglicherweise das Beispiel der IF-Bedingung erklären oder veranschaulichen und welche Art von Liste Sie hinzufügen.

Außerdem muss die Formel im Blatt enthalten sein, Sie möchten die Zeilen mit der Liste der Namen einfügen, wenn die IF-Bedingung im ursprünglichen Blatt erfüllt ist, es sei denn, Sie möchten VBA hinzufügen.

Insgesamt können Sie die IF-Bedingung mit Index und mit SVERWEIS- oder Filterfunktion verwenden

Alles Gute
Shakiru

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.