ich muss aus dem Sheet AV ab Zeilen 42 alle Inhalte aus Spalte A,B ohne Duplikate nach sheet SEGEM kopieren.
Was habe ich falsch gemacht.
Gruß
Wolfgang
Sub Makro2()
Dim letzteZeile As Integer
Worksheets("AV").Activate
letzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Worksheets("SEGEM").Activate
' Sheets("SEGEM").Range(Rows(5), Rows(Rows.Count)).Clear
Sheets("AV").Range("A42:B" & letzteZeile).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A5:B" & letzteZeile), Unique:=True
End Sub