VBA - doppelte Zeilen löschen
20.06.2008 13:53:00
WalterK
den folgenden Code habe ich in der Recherche gefunden, er kommt von Josef Ehrensberger. Es werden hier alle Zeilen gelöscht, bis in Spalte A keine doppelten mehr vorhanden sind, d.h. jeder Inhalt darf nur 1mal vorkommen.
Der Code müsste so abgeändert werden, dass Zeilenweise von Spalte A bis Spalte T geprüft wird, ob identische Zeilen vorhanden sind, d.h. jede Zeile mit allen Inhalten von A bis T darf nur 1mal vorkommen!
Hier ist der Code:
Option Explicit
Sub Doppler_Weg()
Dim rng As Range, rngD As Range
Dim lngL As Long
With Sheets("Tabelle1") ' Tabellenname anpassen!
lngL = Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row)
For Each rng In .Range("A2:I" & lngL)
If Application.CountIf(.Range("A2:I" & rng.Row), rng) > 1 Then
If rngD Is Nothing Then
Set rngD = rng.EntireRow
Else
Set rngD = Union(rngD, rng.EntireRow)
End If
End If
Next
End With
If Not rngD Is Nothing Then rngD.Delete
End Sub
Besten Dank für die Mühe, ich selbst bin dazu nicht im stande das entsprechend zu ändern.
Servus, Walter