Spezialfilter
10.10.2005 09:16:18
Harald
mit folgendem Codeschnipsel, hole ich mir aus einer Liste in Spalte B die Werte ohne Duplikate und ohne Überschrift nach Spalte E...so der Plan
Dim Lz As Long
Lz = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Range("B2:B" & Lz).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E2" _
), Unique:=True
Das Problem:
Wenn ein Wert der in B2 steht im weiteren Verlauf der Spalte erneut vorkommt, wird dieser Wert auch nach E2 geschrieben, taucht aber im weiteren Verlauf der Spalte E erneut auf. Also habe ich ein unerwünschtes Duplikat in der Liste.
Woran liegt das und wie kann ich das vermeiden ?
Ursprünglich hab ich die Überschrift mitgefiltert und mitkopiert
also von B1 bis B & Lz nach E1.
Das hat gefunzt, aber ich benötige in E1 eine andere Überschrift und daher hab ich auf B2 nach E2 gewechselt....wie gesagt, ohne Erfolg.
Danke für Tipps
Gruß
Harald