15.12.2016, 09:18
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?
Habt ihr eine Idee?
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?
Zitat:Sub schleife()Edit: Mir fällt gerade auf, dass er nicht alle Duplikate mitnehmen würde.
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
Habt ihr eine Idee?