Zeile einfügen, wenn eine Bedingung erfüllt ist

Forumthread: Zeile einfügen, wenn eine Bedingung erfüllt ist
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 13:45:39

ThomasZ

Hallo Zusammen,

ich würde gerne in meiner EXCEL-Liste nach jedem x in der Spalte L eine leere Zeile darunter einfügen lassen, in der die Daten der auslösenden Zeile (mit x)
übernommen wird.

Vielleicht hat jemand von euch eine Idee wie ich das umsetzen kann.

Danke
Grüße
Thomas

Userbild

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:01:37

Yal
AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:38:11

BoskoBiati
AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 16:42:38

daniel
AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:12:07

Daniel

AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:01:37

Yal

Hallo Thomas,

es gibt dafür verschiedene Möglichkeiten, aber was ich nicht verstehe, ist warum? bzw mit welchem Ziel?
Was ist eine "auslösende Zeile"? und warum müssten deren Daten direkt darunter eingefügt werden?

Du hast in dem Fall eine klar strukturierte Liste. Wenn Du Zeilen dazwischen einführt, wird die Struktur der Liste zerstört, was weitere Verarbeitung komplizierter macht.

VG
Yal

AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:38:11

BoskoBiati

Hi,

ich kann die Bedenken von Yal bzgl. der Sinnhaftigkeit Deiner Idee nur bestätigen, aber trotzdem ein kleines Makro:

Sub neue_Zeilen()



Dim loLast As Long

Dim loCo As Long

loLast = Cells(Rows.Count, 12).End(xlUp).Row

For loCo = loLast To 1 Step -1

If Cells(loCo, 12) = "x" Then

    Rows(loCo).Copy

    Rows(loCo + 1).Insert xlDown

    Cells(loCo + 1, 12).ClearContents

End If

Next

End Sub

Gruß

Edgar

AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 16:42:38

daniel

Hi
in Excel 365 könnte man dies auch mit einer Formel lösen:

=LET(

a;A1:M11;

b;HSTAPELN(SEQUENZ(ZEILEN(a));a);

c;FILTER(b;SPALTENWAHL(b;12+1)="x");

WEGLASSEN(SORTIEREN(VSTAPELN(b;c);1);;1))

a ist deine Liste
b ist die Liste mit einem Sortierkriterium
c ist die Liste gefiltert nach x in der 12. Spalte der Ausgangsliste
und zum Schluss werden dann beide Listen zusammengefügt und nach dem Sortierkriterium sortiert, das hinzugefügte Sortierkriterum wird wieder entfernt.

Gruß Daniel

AW: Zeile einfügen, wenn eine Bedingung erfüllt ist

26.05.2025 14:12:07

Daniel

Hi
1. Füge eine Hilfspalte ein mit der Zeilennummer (=Zeile(), kopieren und als Wert einfügen)

2. Filtere in Spalte L nach "x", kopiere diese Zeilen und füge sie am Ende der Tabelle ein.

3. Sortiere die Liste nach der Hilfsspalten mit der Zeilennummer.

Gruß Daniel

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!