Der nachfolgende Code sollte 10mal durch laufen. Er funktioniert allerdings nur 1 mal. Beim 2. kommt die Meldung: Anwendungs- und objektdefinierter Fehler
Mit dem Code will ich in den Spalten 1:10 ab Zeile 3 die Duplikate löschen.
Option Explicit
Sub DupWegMitAllgModul()
Dim wksTemp1 As Worksheet
Dim i As Long
Set wksTemp1 = Worksheets("Temp1")
For i = 1 To 10
wksTemp1.Range(Cells(3, i), Cells(100, i)).RemoveDuplicates Columns:=i, Header:=xlNo 'Ü _
berschrift in Zeile 2, Daten ab Zeile 3
Next i
End Sub
Danke für die Hilfe und Servus, Walter