Zeilen, bei denen ein Wert in einer bestimmten Spalte nur einmal vorkommt, löschen

Question

Hallo Community,

ich habe ein Excel-Sheet, bei dem in einer Spalte die meisten Werte mehrfach vorkommen. Es gibt aber auch wenige Einzelwerte, die ich zusammen mit der zugehörigen Zeile eliminieren möchte. Diese Zellinhalte sind unbekannt, es müssten also zunächst alle Werte in der Spalte, die nur einmal auftreten, identifiziert werden.
Danke im Voraus.

Sebastian

Answer 1

Hallo Sebastian,

schreibe in Zeile 1 einer beliebigen Hilfsspalte

=WENN(ZÄHLENWENN(A:A;A1)=1;1;0) (Spalte anpassen)

und ziehe die Formel bis ans Ende der Daten.

Filtere nach dem Wert 1 der Hilfsspalte und lösche das Filterergebnis.

Gruß
Rainer

Answer 2

Hi Sebastian,

das kannst du mit folgendem Makro machen:

Sub Loeschen()
Dim lngZeile As Long
For lngZeile = 100 To 1 Step -1
If Application.CountIf(Columns("E"), Cells(lngZeile, 5)) = 1 _
Then Cells(lngZeile, 5).EntireRow.Delete
Next lngZeile
End Sub

Spalte und Zeilenanzahl musst du selbstverständlich anpassen.

Bis später,
Karin