Office: (Office 2016) Makro neu ausführen wenn Daten gefiltert werden

Hi zusammen,

wenn ich auf meine Daten einen Filter anwende, soll ein bestimmtes Makro ausgeführt werden.

Also wenn ich bspw. bei Derivat "G70" rausnehme, soll ein Makro automatisch neu ausgeführt werden.
Das hier funktioniert bei einer Änderung der Daten selbst, jedoch nicht, wenn Zeilen rausgefiltert werden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:G100")) Is Nothing Then Exit Sub
Call makro1
End Sub

Über Tipps und Lösungsvorschläge würde ich mich freuen.

Gruß Alex

 

Hallo,

ich nehme an, dass die Ereignisbehandlungsroutine in etwa so lauten müsste (hängt natürlich davon ab, was in "makro1" enthalten ist):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rgZL As Range, rgBereich As Range
  Set rgBereich = Me.Range("A1:G100")
  If Intersect(Target, rgBereich) Is Nothing Then Exit Sub
  For Each rgZL In rgBereich.Rows
     If Not rgZL.EntireRow.Hidden Then
        Call makro1
     End If
  Next rgZL
End Sub