xlAtom Nr. 000019

01.12.2007 16:48:16 | Gefilterte Spalten sichtbar machen

Bei gefilterten Spalten ist der blaue vom schwarzen Dropdown-Pfeil visuell schwer zu unterscheiden. Mit folgender UDF und einer bedingten Formatierung kann wird die Titelzelle der Spalte automatisch farblich markiert, wenn ein Filter auf dieser aktiv ist. In ein Standard-Modul diesen Code einfügen:

Public Function istFilterAn(rThisRange As Range) As Boolean
     Dim rThisCell As Range
     On Error Resume Next
     For Each rThisCell In rThisRange.Cells
         With rThisCell.Parent.AutoFilter
             With .Filters(rThisCell.Column - .Range.Column + 1)
                 If .On Then istFilterAn = True
             End With
         End With
     Next
End Function

Die Titelzelle (hier als Beispiel A1) kann jetzt mit dieser bedingten Formatierung versehen werden. Formel ist : =istFilterAn(A1) z.B. Muster orange

Gruppe: VBA/Makros | Ideengeber: Renee | Name: Renee