Duplikate entfernen

[joshua]

Hey! Ich möchte innerhalb einer Spalte Duplikate mittels VBA entfernen, nach folgender Logik:
A2 = A3 > A3.Clear
A2 nicht gleich A3 > nichts, next
A3 = A4 > A4. Clear ...

Das habe ich nun nach folgender Logik geschrieben, leider funktioniert dies nicht so ganz. Woran liegt es?

Sub schleife()
    Dim Zeile As Long
    Dim ZeileMax As Long
   
    With tbl_data
   
        ZeileMax = .UsedRange.Rows.Count
       
            For Zeile = 2 To ZeileMax
                For Zeile2 = 3 To ZeileMax
           
                    If .Range("A" & Zeile) = .Range("A" & Zeile2) Then
                        .Range("A" & Zeile).Clear
                    End If
                   
                Next Zeile2
           
            Next Zeile
           
    End With
         
End Sub

Edit: Mir fällt gerade auf, dass er nicht alle Duplikate mitnehmen würde.
Habt ihr eine Idee?

[Kuwer]

Hallo Joshua,

Sub schleife()

   Dim Zeile As Long

   Dim ZeileMax As Long

  

   With tbl_data

       ZeileMax = .UsedRange.Rows.Count

       For Zeile = 2 To ZeileMax

           If .Range("A" & Zeile) = .Range("A" & Zeile + 1) Then

                 .Range("A" & Zeile).Clear

           End If

       Next Zeile

   End With

End Sub

Gruß Uwe

[Kuwer]

Hallo Joshua,

mein vorheriger Code funktioniert nur, wenn Spalte A sortiert ist.
Folgender Code sollte universeller passen:

Sub schleife_2()

   Dim Zeile As Long

   Dim ZeileMax As Long

  

   With tbl_data

       ZeileMax = .UsedRange.Rows.Count

       For Zeile = .UsedRange.Row To ZeileMax

           If Application.CountIf(.Range("A2:A" & ZeileMax), .Range("A" & Zeile)) > 1 Then

                 .Range("A" & Zeile) = ""

           End If

       Next Zeile

   End With

End Sub

Gruß Uwe

[joshua]

Hallo Joshua,

Sub schleife()

   Dim Zeile As Long

   Dim ZeileMax As Long

  

   With tbl_data

       ZeileMax = .UsedRange.Rows.Count

       For Zeile = 2 To ZeileMax

           If .Range("A" & Zeile) = .Range("A" & Zeile + 1) Then

                 .Range("A" & Zeile).Clear

           End If

       Next Zeile

   End With

End Sub

Gruß Uwe

Vielen Dank!

Ziel ist es, dass immer der erste Wert stehen bleibt, und alle Duplikate dadrunter gelöscht werden.
Mit deinem Code werden jedoch die letzten Werte beibehalten und die vorherigen gelöscht.

Ich habe versucht die Schleife von unten nach oben durchlaufen zu lassen, dass hat aber nicht geholfen.
Woran liegt das?

[Kuwer]

Hallo Joshua,

von unten nach oben dann am besten so:

Sub schleife_2()

   Dim Zeile As Long

   Dim ZeileMax As Long

  

   With tbl_data

       ZeileMax = .UsedRange.Rows.Count + .UsedRange.Row - 1

       For Zeile = ZeileMax To .UsedRange.Row Step -1

           If Application.CountIf(.Range("A2:A" & ZeileMax), .Range("A" & Zeile)) > 1 Then

                 .Range("A" & Zeile) = ""

           End If

       Next Zeile

   End With

End Sub

Gruß Uwe