Auswahlauschließender Filter
06.12.2007 13:15:00
kuechenberg
nachdem ich beim SVerweis total abgeloost hab, hier noch eine meiner nützlichen Funktionen:
Es ist ein Auswahlauschließender Filter. Praktisch das Gegenteil vom Auswahlbasierten Filter, den es über eine Schaltfläche in XL ja schon gibt.
Mit dem Auswahlausschließenden Filter könnt Ihr das Kriterium der Aktiven Zelle für Eure Liste ausschließen. Das heißt z.B. in einer Liste aller Kunden alle aus Frankfurt Filtern.
Probleme gibt es nur wenn Ihr ein Datum ausschließen wollt. Das müsst Ihr unter "Benutzerdefiniert" noch mal bestätigen. "#NV" zu filtern geht auf diese Weise nicht.
Aber vielleicht habt Ihr wieder Verbesserungsvorschläge :-)
Viel Spaß damit.
Sub AuswahlausschließenderFilter()
' AuswahlausschließenderFilter Makro
' Makro am 18.07.2007 von wkuechenberg aufgezeichnet
Dim intFieldNumber As Integer
intFieldNumber = ActiveCell.Column - ActiveCell.CurrentRegion.Column + 1
Selection.AutoFilter Field:=intFieldNumber, Criteria1:="" & CStr(ActiveCell)
End Sub
Gruß Walter