Autofilter gesetzt automatisch erkennen
Scheuzger
Habe folgende, untenstehende Prozedur. Das Problem dabei ist, dass diese nicht erkennt, wenn ein Autofilter gesetzt wurde. D.h. die Prozedur sollte automatisch ausgeführt werden, sobald ein Autofilter selektiert oder auch gelöscht, zurück gesetzt wurde.
Habe den Code in "Diese Arbeitsmappe" mit Workbook open und Workbook aktivate plaziert, jedoch leider ohne Erfolg. Kann mir jemand aufzeigen wie ich den Code abändern muss, damit dieser automatisch ausgeführt wird sobald etwas an einem Filter geändert wurde (also irgend wie dynamisch). Habe leider nur bescheidene VBA-Kenntnisse, daher bin dankbar um jede Unterstützung. (Konnte leider auch nichts entsprechendes im Grundwerk finden).
Private Sub AutofilterMarkierungUndFensterfixierung()
Dim fltFilter As Filter
Dim intCol As Integer
For Each fltFilter In ActiveSheet.AutoFilter.Filters
intCol = intCol + 1
If fltFilter.On Then
Cells(1, intCol).Interior.ColorIndex = 37
Call FensterfixierungNeuSetzen
Else
Cells(1, intCol).Interior.ColorIndex = 15
End If
Next
End Sub
Danke
Mit freundlichen Grüssen
Peter