ich habe ein Makro erstellt, dass mir aus einer Tabelle, die ich als Datenbank benutze, alle Duplikate entfernt. Nun muss ich aber noch die Inhalte der gelöschten Datensätze angezeigt bekommen, da ich die Daten aus der Auswertung herausnehmen muss.
Ist es möglich, mir die Duplikate, die ich entferne in einem neuen Blatt anzuzeigen?
Mein Code bis jetzt zum Löschen von Duplikaten:
Sub Duplikate()
Dim a, b As Long
Sheets("Daten").Select
a = Cells.SpecialCells(xlLastCell).Row
Rows("1:a").Select
Range("A1:Ua").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Rows("1:a").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Sheets("Daten").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Cells.Select
Selection.ClearContents
Sheets("Tabelle1").Select
b = Cells.SpecialCells(xlLastCell).Row
Rows("1:b").Select
Selection.Cut
Sheets("Daten").Select
Range("A1").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Rows("b+1:a+10").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Tabelle1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Eingabe").Activate
End Sub