Hallo zusammen,
ich filtere mit dem Spezialfilter auf Unikate.
Set Bereich = ActiveSheet.Range("A3:B300")
Bereich.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Daraus folgt, dass alle Duplikate ausgeblendet werden (Rows(i).Hidden =True).
Das Löschen der hidden Zeilen mit dem Befehl
For i=ActiveSheet.Rows.Count To 1 Step -1
If ActiveSheet.Rows(i).Hidden=True Then
ActiveSheet.Rows(i).Delete
End If
Next i
dauert bei mir ewig lange. Gibt es einen einfacheren Befehl (z.B. For each Row oder so was ähliches?), der nicht so lange Laufzeiten hat?
Danke
Katharina