Office: Zeilen bei bestimmten Kriterien löschen

Moin, ich muss ab heute jeden Monat eine Auswertung über Projekte erstellen, dabei teile ich mir diese Aufgabe mit einem Kollegen, wo er die gerade und ich die ungerade übernehme.
Besteht die Möglichkeit in Excel mithilfe einer Formel alle Projekte die auf eine gerade Zahl enden auszublenden oder zu löschen

 

Hi,

du könntest die Funktion ISTGERADE() verwenden:

Tabelle1

	A	B	C	D
1	AA		Gerade	Ungerade
2	1			1
3	2		2
4	3			3
5	4		4
6	5			5
7	6		6
8	7			7
9	8		8
10	9			9
11	10		10

verwendete Formeln
Zelle	Formel	Bereich	N/A
C2:C11	=WENN(ISTGERADE(A2);A2;"")
D2: D11	=WENN(ISTGERADE(A2);"";A2)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

---

 

Ich habe mal die Datei hierreingepackt (entfernt von allen Unternehmensdaten). Es sollen alle Zeilen entfernt werden, welche gerade sind, da ich in weiteren Schritten mit Formeln arbeite und diese sich eben nur auf die ungeraden beziehen sollen.

Gibt es hierfür eine Möglichkeit?

 

Moin!
Als kleine Spielerei (nur Excel 365).
Die einzige Formel steht in C2:

	A	B	C	D
1	Projekt-#		A	B
2	5382		5599	5382
3	5599		9841	2072
4	2072		2001	2114
5	9841		3427	9684
6	2001		3927	8786
7	2114		5223	6220
8	3427		4573	9196
9	9684		2041	4330
10	8786		4829	1576
11	6220		6231	2542
12	9196
13	4330
14	3927
15	5223
16	4573
17	2041
18	1576
19	4829
20	2542
21	6231

Zelle	Formel
C2	=LET(x;A2:A21;a;FILTER(x;REST(x;2));b;FILTER(x;REST(x;2)=0);HSTAPELN(a;b))

Gruß Ralf

 

Ich probiere es mal so. Wenn es klappt, dann sage ich schon mal Danke im Voraus :)

 

Hi,

wenn du eine sehr lange Liste hast, dann belasten die vielen Formeln doch deine Arbeitsmappe unnötig. An deiner Stelle würde ich da lieber eine VBA-Lösung verwenden und die Zeilen komplett aus der Liste löschen anstatt sie nur nach deinem Kriterium gerade/ungerade per Formel zu filtern:

Code:

Sub GeradeBleiben()
    Dim lngZeile As Long
    Dim arrWerte
    With ActiveSheet.ListObjects(1)
        For lngZeile = .DataBodyRange.Rows.Count To 1 Step -1
            arrWerte = Split(.DataBodyRange.Columns(2).Cells(lngZeile), "-")
            If arrWerte(1) Mod 2 <> 0 Then .ListRows(lngZeile).Delete
        Next lngZeile
    End With
End Sub

---