In Excel suchen und dann Kopieren

[AMEMUC]

Hallo ,

ich hoffe jemand kann mir bei meinem Problem helfen.

Ich habe eine Tabelle als Beispiel mit 4 Spalten. In der 4ten Spalte steht entweder eine 0 oder eine 1.
Ich möchte gerne nach allen Einsen in der 4ten Spalte suchen und danach die entsprechende Reihe oder Teile daraus an eine anderen stelle der Tabelle oder in eine neue Tabelle Kopieren.
Es können auch mehrere Einsen in der Tabelle vorhanden sein.

 
wie kann ich das über Formeln oder VBA machen?

Danke für eure Hilfe

[WillWissen]

Hi,

so:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I
1	Text1	Text2	Text3	NullOderEins		Text1	Text2	Text3	NullOderEins
2	bla1	blub1	blib1	0		bla3	blub3	blib3	1
3	bla2	blub2	blib2	0		bla4	blub4	blib4	1
4	bla3	blub3	blib3	1		bla6	blub6	blib6	1
5	bla4	blub4	blib4	1		bla8	blub8	blib8	1
6	bla5	blub5	blib5	0		bla9	blub9	blib9	1
7	bla6	blub6	blib6	1
8	bla7	blub7	blib7	0
9	bla8	blub8	blib8	1
10	bla9	blub9	blib9	1

Zelle	Formel
F2	=WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;ZEILE($A$1:$A$10)/($D$1:$D$10=1);ZEILE(A1)));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Der Übersicht wegen habe ich die Auswertung auf das gleiche Tabellenblatt geschrieben, das musst du halt anpassen. Formel (in meinem Beispiel) in F2 eintragen und nach rechts und nach unten ziehen.

[AMEMUC]

Hi,

das klappt super, Danke

Ich hab nur die Formel nicht verstanden, da muss ich mal kräftig Recherche betreiben damit ich die verstehe.

Danke für die Hilfe

[Jockel]

Hallo, ich würd's mit Power Query machen... (zwei Klicks) Keine Formel, kein VBA, keine Formel "auf Vorrat" nötig, zudem dynamisch. Mit Formeln würde ich mit einer Hilfsspalte arbeiten.

Arbeitsblatt mit dem Namen 'Blatt1'
	P	Q	R	S	T
1		Text1	Text2	Text3	NullOderEins
2	4	bla3	blub3	blib3	1
3	5	bla4	blub4	blib4	1
4	7	bla6	blub6	blib6	1
5	9	bla8	blub8	blib8	1
6	10	bla9	blub9	blib9	1

Zelle	Formel
P2	=VERGLEICH(1;INDEX(--(D$999:INDEX($D$1:$D$27;P1+1)=1););)+P1
Q2	=INDEX(A:A;$P2)
R2	=INDEX(B:B;$P2)
S2	=INDEX(C:C;$P2)
T2	=INDEX(D:D;$P2)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg