Filterspalte farbig markieren
23.10.2018 15:46:23
ludicla
vom Forum hab ich das folgende Makro um in einzelnen Tabellenblätter die Filer-
spalten farbig hervorzuheben:
Private Sub Worksheet_Calculate()
Dim Af As AutoFilter, i As Integer
Set Af = Me.AutoFilter
If Me.AutoFilterMode Then
For i = 1 To Af.Filters.Count
If Af.Filters(i).On Then
Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = 6
Else
Af.Filters(i).Parent.Range.Columns(i).Interior.ColorIndex = xlNone
End If
Next i
End If
End Sub
meine Frage: kann man das auch irgendwo in Excel einbauen, damit es immer und
überall funktioniert ?
Im Voraus schon Danke für euere Tipps.
bin aber erst morgen wieder da.
Gruss Ludicla.