ich möchte in einer Tabelle gerne doppelte Werte entfernen.
Dazu habe ich den Makrorecorder bemüht, der mir folgenden Code aufgezeichnet hat:
'
' Makro1 Makro
ActiveSheet.Range("Tabelle3[#Alle]").RemoveDuplicates Columns:=Array(1, 2, 3, 4, _
5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25), Header:= _
xlYes
End Sub
Nun wollte ich den einbauen, und zwar wie folgt:
With ThisWorkbook.Sheets("Verkauft")
.Activate
.Range("A2:Y65536").RemoveDuplicates Columns:=Array(1, 2, 3, 4, _
5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25), Header:= _
xlYes
.Rows("2:" & slng).AutoFit
.ListObjects(1).Resize .Range(.Cells(1, 1), .Cells(slng + 1, "Y"))
End With
Das funktioniert aber nicht.
Fehlermeldung: Anwendungs- oder objectdefinierter Fehler
Könnt ihr bitte helfen?
Gruß Oisse