Filter setzen, Daten modifizieren, Filter löschen
10.09.2013 09:58:07
alexthefox
Ich möchte aus einer Tabelle Dubletten filtern und diese anschließend markieren. Das setzen des Filters funktioniert gut, nur das Modifizieren funktioniert nicht.
Es werden alle Daten als "unicum" modifiziert und nicht nur die gefilterten.
Dies ist an sich schon ein umweg, da ich eigentlich nur die zu löschenden Dubletten markieren möchte und nicht die Unikate.
Ein Denkanstoß wäre spitze.
Sub find_duplicates()
Dim lastrow As Integer
Dim k As Integer
'sets filter "remove duplicates" (advanced filter)
ActiveWorkbook.Sheets("Tabelle1").UsedRange.AdvancedFilter Action:=xlFilterInPlace, Unique:= _
True
'counts rows
lastrow = ActiveWorkbook.Sheets("Tabelle1").UsedRange.Rows(ActiveWorkbook.Sheets("Tabelle1") _
.UsedRange.Rows.Count).Row
'adds column, where modification marker should be
ActiveWorkbook.Sheets("Tabelle1").Columns("A:A").Insert Shift:=xlToRight
'modifies filtered data in cloumn A as unicum
For k = 1 To lastrow
ActiveWorkbook.Sheets("Tabelle1").Range("A" & k).Value = "unicum"
Next k
'deletes filter
ActiveWorkbook.Sheets("Tabelle1").UsedRange.AdvancedFilter Action:=xlFilterInPlace, Unique:= _
False
End Sub
mfg alex