habe ein Problem mit dem u.g. Code. Möchte doppelte Einträge löschen und in eine
Spalte kopieren. Klappt leider nicht.
Public
Sub FilterDuplicatesF()
Dim wkbDataa As Workbook
Dim wksDataa As Worksheet
Dim wksDataNeww As Worksheet
Dim rngDataa As Range
Dim nColsCntt As Integer
Dim nRowsCntt As Long
Application.ScreenUpdating = False
Set wkbDataa = ThisWorkbook
Set wksDataa = wkbDataa.Worksheets(3)
Set wksDataNeww = ThisWorkbook.Worksheets(4)
With wksDataa
Set rngDataa = _
.Range(.Cells(3, 11), .Cells(500, 11))
End With
wksDataNeww.Range("a1:a2000").Clear
rngDataa.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=wksDataNeww.Range("a1"), Unique:=True
Application.ScreenUpdating = True
Set rngDataa = Nothing
Set wksDataNeww = Nothing
Set wksDataa = Nothing
End Sub
Dank für Eure Hilfe.
Gruss ticonhh