Doppelte Zeilen löschen
16.05.2013 21:09:27
WalterK
in der Recherche habe ich den folgenden Code von Gerd L gefunden. Der Code löscht doppelte Zeilen, relevant sind die Spalte A,B und C.
Sub testA()
Dim vntSpalten()
Dim lngZeile As Long, intZähler As Integer, x As Long
vntSpalten = Array("B", "D", "I") 'Prüfspalten ggf. anpassen !!
For lngZeile = Cells(Rows.Count, 1).End(xlUp).Row To 8 Step -1
x = 1
For intZähler = LBound(vntSpalten) To UBound(vntSpalten)
x = x * Application.WorksheetFunction.CountIf _
(Range(Cells(7, vntSpalten(intZähler)), _
Cells(lngZeile - 1, vntSpalten(intZähler))), _
Cells(lngZeile, vntSpalten(intZähler)))
Next
If x > 0 Then Rows(lngZeile).Delete
Next
End Sub
In meiner Tabelle sind die Spalten A bis Z relevant. Muss ich auch alle Spalten einzeln anführen oder gibt es dafür eine andere Schreibweise?
Besten Dank für die Hilfe und Servus, Walter