Excel-Makro-Profi hier? Suchen und Zeilen löschen

Sub DelTriples()
Rw = Selection.Rows.Count
Cl = Selection.Columns.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rw
    n = 1
    For j = 1 To Cl
        If ActiveCell.Value = ActiveCell.Offset(0, j) Then n = n + 1
    Next j
    If n >= 3 Then Selection.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

Einfach die Zellen von oben links nach unten rechts markieren und das Makro laufen lassen.
Vorher zur Sicherung zwischenspeichern!

mfG
Fabian

Zitat von o_OLLi

mit dem code wird allerdings nur geschaut ob irgendein wert 3 mal in einer zeile vorkommt und kein bestimmter. nur als Ergänzung falls das gewüscht sein sollte. dafür müsstest du dann nur in der ersten IF den gesuchten Zelleninhalt einfügen

Ansonsten Zeilen 8 und 9 mit diesen ersetzen:

For j = 0 To Cl
        If 123 = ActiveCell.Offset(0, j).Value Then n = n + 1

Oh - ich habe gerade eben nochmal die Fragestellung in Post #1 durchgelesen. Eigentlich wurde ja nach einem Makro gefragt, dass alle Zellen mit allen anderen Zellen in jeder Zeile vergleicht. Nicht nur mit der ersten. Es könnten ja auch mehr als nur 3 Spalten sein.

Hier werden alle Werte einer Zeile mit allen anderen Werten der Zellen der Zeile verglichen. Sobald es einen Treffer gibt, wird gezählt ob es es insgesamt 3 oder mehrmals den gleichen Wert gibt. Falls, ja, wird die Zeile gelöscht.

Sub DelTriples()
rw = Selection.Rows.Count
cl = Selection.Columns.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To rw
    For j = 0 To cl - 1
        For k = j + 1 To cl - 1
            If ActiveCell.Offset(0, j) = ActiveCell.Offset(0, k) Then
                n = 0
                For l = 0 To cl - 1
                    If ActiveCell.Offset(0, j) = ActiveCell.Offset(0, l) Then
                        n = n + 1
                    End If
                Next l
            End If
        Next k
    Next j
    If n >= 3 Then Selection.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

Zitat von Kai

Ich muss schauen, ob ein bestimmter Wert (-77) mindestens 3 mal vorkommt. Wie müsste ich das o.g. dafür verändern?

Das ist eigentlich wesentlich leichter zu prüfen als ob ein beliebiger Wert mehrmals vorkommt:

Sub Del77()
Rw = Selection.Rows.Count
cl = Selection.Columns.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rw
    n = 0
    For j = 0 To cl - 1
        If ActiveCell.Offset(0, j) = -77 Then n = n + 1
    Next j
    If n >= 3 Then Selection.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

Du kannst es dir aber auch leichter machen, wenn du lediglich Zeilen mit einem Wert der mehrmals vorkommt kenntlich machen willst:

mit countif werden die Vorkommnisse eines Wertes in einer Range gesucht. Bei dem deutschem Excel mag dir Funktion "zählenwenn" heißen. Dann kannst du die Liste ja nach der Anzahl der Vorkommnisse sortieren und diese dann von Hand löschen...

Hoffe es hilft dir weiter

mfG
Fabian