Doppelte ausblenden und trotzdem AF verwenden
18.05.2017 07:13:00
Peter
Unten stehender Code blendet die doppelten Wert sehr einfach und elegant aus. Jedoch habe ich damit das Problem, dass ich den Autofilter nicht mehr verwenden kann, möchte ich z.B. in Spalte D nach einen Wert filtern geht das nicht.
Wie könnte eine Lösung aussehen, bei der ich in Spalte AS ab Zeile 4, nach einmaligen Werte filtern und dann jedoch weiterhin den Autofilter benutzen kann?
Sub Doppelte_NormPackungen_Ausblenden_Test()
Application.ScreenUpdating = False
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 45)), Cells(Rows.Count, 45).End(xlUp).Row, Rows. _
Count)
Range(Cells(4, 45), Cells(lngLetzte, 45)).AdvancedFilter Action:=xlFilterInPlace, Unique:= _
Tru
Application.ScreenUpdating = True
End Sub
Viele Grüsse,
Peter