hatte gestern eine Frage bezüglich löschen von Dubletten im zweiten Tabellenblatt. Habe in Tabelle 1 Adressdaten (eine Adresse eine Zeile).
In Tabelle 2 habe ich die gleichen Adressen + neu hinzugekommene. Jetzt möchte ich in Tabelle 2 alle Adressen löschen, die auch in Tabelle 1 vorkommen, dass nur die neuen Adressen übrigbleiben.
UweD hat mir folgendes Makro zukommen lassen:
Sub Doppelte()
Dim LR1%, LR2%, CC%, TB1, TB2, I%, Z%, M%
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
'LR1 = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
CC = TB2.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte
Application.ScreenUpdating = False
For Z = LR2 To 2 Step -1
For I = 1 To CC 'vergleichen aller Spalten
If Application.CountIf(TB1.Columns(I), TB2.Cells(Z, I)) >= 1 Then
M = M + 1
End If
Next I
If M = CC Then 'Wenn alle Spalten gleich
TB2.Rows(Z).Delete ' Zeile Löschen
End If
M = 0
Next Z
Application.ScreenUpdating = True
End
Sub
Leider funktioniert es aber nicht. Es werden keine Adresszeilen gelöscht obwohl es sich definitiv um Dubletten handelt.
Hallo UweD hatte Dir gestern noch geantwortet und heute morgen nochmal eine Nachricht an Deine Antwort gehangen. Höchstwahrscheinlich geht das durch die Menge an Fragen unter.
Kannst Du mir hierbei helfen oder jemand anderer der Excel-Profis.
Besten Dank im Voraus
Jürgen