Hallo Zusammen, ich habe mir ein kleines Progrämmchen geschrieben welches Duplikate aus einer Tabelle (größe Variabel) löschen soll, das funktioniert auch. Allerdings hätte ich noch gerne das er mir vorher sagt, wie viele Duplikate er denn gefunden hat.
Ich weis jedoch nicht, wie ich das in meinem bestehenden Code am elegantesten umsetzten kann. Hat von euch eventuel jemand einen Tipp?
Danke und hier kommt der Code:
Sub DoppelteLoeschen()
Dim LR As Long
Dim LC As Long
Worksheets("Ausgabe").UsedRange.Clear
'Tabellenblatt "Ausgabe" leeren
LR = 0
LR = Worksheets("Daten").UsedRange.Rows.Count
'Letzte gefüllte Zeile bestimmen
LC = 0
LC = Worksheets("Daten").UsedRange.Columns.Count
'Letzte gefüllte Spalte bestimmen
MsgBox "Datenbereich Von A1 bis " & Chr(64 + LC) & LR
'MsgBox LR
Worksheets("Daten").Range("A1:" & Chr(64 + LC) & LR).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Worksheets("Ausgabe").Range("A1:" & Chr(64 + LC) & LR), _
Unique:=True
'Duplikate löschen, Tabellengröße Variabel
Worksheets("Ausgabe").Activate
'Tabellenblatt "Ausgabe" aufrufen
End Sub
Gruß
Tom
|