ich möchte in meiner Tabelle die Spalte, in der mittels Autofilter eine Selektion getroffen wurde farblich kennzeichnen. Kann mir jemand weiterhelfen ?
Vielen Dank vorweg
Wolfgang
Private Sub Worksheet_Activate()
[iv65536].FormulaLocal = "=ZUFALLSZAHL()"
End Sub
Private Sub Worksheet_Calculate()
Dim F As Integer, aSh As Worksheet
Set aSh = ActiveSheet
Application.EnableEvents = True
Rows(1).Interior.ColorIndex = xlNone
If aSh.AutoFilterMode = False Then
Application.EnableEvents = False
Else
For F = 1 To aSh.AutoFilter.Filters.Count
If aSh.AutoFilter.Filters(F).On Then
aSh.Cells(1, F).Interior.ColorIndex = 6 'gelb
End If
Next
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Deactivate()
[iv65536] = ""
End Sub