[Excel] Jede zweite Zeile ohne VBA löschen

[Kl@us-M.]

Du willst / musst jede zweite Zeile löschen und verzichtest auf eine VBA-Lösung? Gehe wie folgt vor:
Nehmen wir an, deine Daten stehen in den Zellen A1:B17.

	A	B
1	Hans	3
2
3	Klaus	6
4
5	Peter	1
6
7	Uwe	5
8
9	Jens	9
10
11	Lothar	7
12
13	Petra	4
14
15	Karin	3
16
17	Sylvia	9

Schreibe in C1 folgende Formel: =REST(ZEILE();2)

	A	B	C
1	Hans	3	1
2
3	Klaus	6
4
5	Peter	1
6
7	Uwe	5
8
9	Jens	9
10
11	Lothar	7
12
13	Petra	4
14
15	Karin	3
16
17	Sylvia	9

Zelle	Formel
C1	=REST(ZEILE();2)

Markiere C1 und zieh die Formel bis zur Zelle C17. In Spalte C stehen nun (von oben nach unten) abwechselnd die Zahlen 1 und 0.

	A	B	C
1	Hans	3	1
2			0
3	Klaus	6	1
4			0
5	Peter	1	1
6			0
7	Uwe	5	1
8			0
9	Jens	9	1
10			0
11	Lothar	7	1
12			0
13	Petra	4	1
14			0
15	Karin	3	1
16			0
17	Sylvia	9	1

Zelle	Formel
C1	=REST(ZEILE();2)

Nun filter das Tabellenblatt in Spalte C nach 0 und lösch die sichtbaren Zeilen. Das Ergebnis:

	A	B	C
1	Hans	3	1
2	Klaus	6	1
3	Peter	1	1
4	Uwe	5	1
5	Jens	9	1
6	Lothar	7	1
7	Petra	4	1
8	Karin	3	1
9	Sylvia	9	1

Zelle	Formel
C1	=REST(ZEILE();2)

Die Spalte C kannst du nun löschen ...