Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

Forumthread: Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

08.12.2012 11:54:07

Peter

Hallo,
ich möchte in einer Tabelle alle Zeilen löschen, in denen bestimmte Inhalte nicht vorhanden sind.
In angefügter Tabelle wird es etwas deutlicher.
https://www.herber.de/bbs/user/82938.xlsx
In Spalte B taucht die Bezeichnung COM auf. In der Spalte C folgt eine Zahl. Ich muss nun ermitteln, in welchen Zeilen dieses COM auftaucht. Dann muss ich mir ansehen, welche Nummer dahinter steht. Alle Zeilen, in denen diese Nummer steht müssen beibehalten werden, alle anderen sollen gelöscht werden.
Ich hoffe das war nicht zu umständlich erklärt.
Für Lösungsvorschläge ohne VBA bin ich dankbar, denke aber, es lässt sich nur mit Programmierung lösen. Auch hier freue ich mich auf Lösungsvorschläge.
Gruß
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

08.12.2012 12:15:50

ransi

Hallo Peter
Ohne VBA fällt mir sowas ein:
Tabelle1

	A	B	C	D	E	F
1	Daten 1	Daten 2	Daten 3	Hilfspalte1	Hilfspalte2
2	11	12	1		1
3	5555	COM	1	1	1
4	ABC	951	1		1
5	13	14	2		0
6	99999	COS	2		0
7	DEF	591	2		0
8	15	16	5		1
9	51846546	COT	3		0
10	GHI	753	3		0
11	17	18	4		0
12	26848	CPT	4		0
13	JKL	159	4		0
14	19	20	5		1
15	568456	COM	5	5	1
16	MNO	754	5		1
17	21	22	6		0
18	2656	ASD	6		0
19	NBV	466	6		0
20	23	24	1		1
21	54844545	ASE	7		0
22	CRE	325	7		0
23	25	26	8		1
24	2165	COM	8	8	1
25	AWW	555	8		1
26	27	28	9		0
27	2655	XYC	1		1
28	QWE	999	9		0
29	29	30	10		0
30	1545454654	AFG	5		1
31	POI	776	10		0
32	31	32	11		1
33	45645465	COM	11	11	1
34	VFE	852	11		1
35

Formeln der Tabelle

Zelle	Formel
D2	=WENN(B2="COM";C2;"")
E2	=ZÄHLENWENN(D:D;C2)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die Hilfspalte2 filterst du nach 0 und löscht das Filterergebniß.
ransi

ohne VBA, mit Hilfsspalte und Spezialfilter

08.12.2012 12:20:45

Tino

Hallo,
ich habe in D eine Hilfsspalte eingefügt.
In F die Kriterien für den Spezialfilter und entsprechend den Spezialfilter angewendet.
Ausgabe im Beispiel ist in H bis J.
Vorraussetzung, der Spezialfilter benötigt eine Überschrift wie im Bsp. gezeigt.

	A	B	C	D	E	F	G	H	I	J
1	Ü1	Ü2	Ü3			Ü3		Ü1	Ü2	Ü3
2	11	12	1			1		11	12	1
3	5555	COM	1	1		5		5555	COM	1
4	ABC	951	1			8		ABC	951	1
5	13	14	2			11		15	16	5
6	99999	COS	2					19	20	5
7	DEF	591	2					568456	COM	5
8	15	16	5					MNO	754	5
9	51846546	COT	3					23	24	1
10	GHI	753	3					25	26	8
11	17	18	4					2165	COM	8
12	26848	CPT	4					AWW	555	8
13	JKL	159	4					2655	XYC	1
14	19	20	5					1545454654	AFG	5
15	568456	COM	5	5				31	32	11
16	MNO	754	5					45645465	COM	11
17	21	22	6					VFE	852	11
18	2656	ASD	6
19	NBV	466	6
20	23	24	1
21	54844545	ASE	7
22	CRE	325	7
23	25	26	8
24	2165	COM	8	8
25	AWW	555	8
26	27	28	9
27	2655	XYC	1
28	QWE	999	9
29	29	30	10
30	1545454654	AFG	5
31	POI	776	10
32	31	32	11
33	45645465	COM	11	11
34	VFE	852	11

Formeln der Tabelle

Zelle	Formel
F1	=C1
D2	=WENN(UND(B2="COM";ISTZAHL(C2)); C2;"")
F2	=WENN(ANZAHL(D:D)>=ZEILE(A1); KKLEINSTE(D:D;ZEILE(A1)); "")
D3	=WENN(UND(B3="COM";ISTZAHL(C3)); C3;"")
F3	=WENN(ANZAHL(D:D)>=ZEILE(A2); KKLEINSTE(D:D;ZEILE(A2)); "")
D4	=WENN(UND(B4="COM";ISTZAHL(C4)); C4;"")
F4	=WENN(ANZAHL(D:D)>=ZEILE(A3); KKLEINSTE(D:D;ZEILE(A3)); "")
D5	=WENN(UND(B5="COM";ISTZAHL(C5)); C5;"")
F5	=WENN(ANZAHL(D:D)>=ZEILE(A4); KKLEINSTE(D:D;ZEILE(A4)); "")
D6	=WENN(UND(B6="COM";ISTZAHL(C6)); C6;"")
F6	=WENN(ANZAHL(D:D)>=ZEILE(A5); KKLEINSTE(D:D;ZEILE(A5)); "")
D7	=WENN(UND(B7="COM";ISTZAHL(C7)); C7;"")
F7	=WENN(ANZAHL(D:D)>=ZEILE(A6); KKLEINSTE(D:D;ZEILE(A6)); "")
D8	=WENN(UND(B8="COM";ISTZAHL(C8)); C8;"")
F8	=WENN(ANZAHL(D:D)>=ZEILE(A7); KKLEINSTE(D:D;ZEILE(A7)); "")
D9	=WENN(UND(B9="COM";ISTZAHL(C9)); C9;"")
F9	=WENN(ANZAHL(D:D)>=ZEILE(A8); KKLEINSTE(D:D;ZEILE(A8)); "")
D10	=WENN(UND(B10="COM";ISTZAHL(C10)); C10;"")
F10	=WENN(ANZAHL(D:D)>=ZEILE(A9); KKLEINSTE(D:D;ZEILE(A9)); "")
D11	=WENN(UND(B11="COM";ISTZAHL(C11)); C11;"")
F11	=WENN(ANZAHL(D:D)>=ZEILE(A10); KKLEINSTE(D:D;ZEILE(A10)); "")
D12	=WENN(UND(B12="COM";ISTZAHL(C12)); C12;"")
F12	=WENN(ANZAHL(D:D)>=ZEILE(A11); KKLEINSTE(D:D;ZEILE(A11)); "")
D13	=WENN(UND(B13="COM";ISTZAHL(C13)); C13;"")
D14	=WENN(UND(B14="COM";ISTZAHL(C14)); C14;"")
D15	=WENN(UND(B15="COM";ISTZAHL(C15)); C15;"")
D16	=WENN(UND(B16="COM";ISTZAHL(C16)); C16;"")
D17	=WENN(UND(B17="COM";ISTZAHL(C17)); C17;"")
D18	=WENN(UND(B18="COM";ISTZAHL(C18)); C18;"")
D19	=WENN(UND(B19="COM";ISTZAHL(C19)); C19;"")
D20	=WENN(UND(B20="COM";ISTZAHL(C20)); C20;"")
D21	=WENN(UND(B21="COM";ISTZAHL(C21)); C21;"")
D22	=WENN(UND(B22="COM";ISTZAHL(C22)); C22;"")
D23	=WENN(UND(B23="COM";ISTZAHL(C23)); C23;"")
D24	=WENN(UND(B24="COM";ISTZAHL(C24)); C24;"")
D25	=WENN(UND(B25="COM";ISTZAHL(C25)); C25;"")
D26	=WENN(UND(B26="COM";ISTZAHL(C26)); C26;"")
D27	=WENN(UND(B27="COM";ISTZAHL(C27)); C27;"")
D28	=WENN(UND(B28="COM";ISTZAHL(C28)); C28;"")
D29	=WENN(UND(B29="COM";ISTZAHL(C29)); C29;"")
D30	=WENN(UND(B30="COM";ISTZAHL(C30)); C30;"")
D31	=WENN(UND(B31="COM";ISTZAHL(C31)); C31;"")
D32	=WENN(UND(B32="COM";ISTZAHL(C32)); C32;"")
D33	=WENN(UND(B33="COM";ISTZAHL(C33)); C33;"")
D34	=WENN(UND(B34="COM";ISTZAHL(C34)); C34;"")

Gruß Tino

AW: Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

08.12.2012 18:38:42

Peter

DAnke an die Antworter. Das klappt ja ziemlich gut :-)

Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

Forumthread: Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

Forumthread: Zeilen löschen wenn bestimmte Inhalte NICHT vorhan

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread