Hallo Andreas,

eine Antwort kommt zwar erst spät, aber eventuell kannst Du doch noch etwas damit anfangen.
Ohne genau zu wissen, was Deinm Beispielmakro so ganz machen soll, poste ich hier mal ein Makro, dass Dir in einer MessageBox anzeigt, welche Zeile dem filterkriterium entspricht, also sichtbar ist. Anstelle des Aufrufs der MessageBox muss dort dann Deine Prozedur eingetragen werden.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]
Sub Meldung_gefilterte_Zeilen()
Dim iRow As Range
For Each iRow In Range("A2:A" & Range("A65536").End(xlUp).Row)
    If Rows(iRow.Row).Hidden = False Then
        MsgBox iRow.Row
        'Anstelle des MessageBox-Aufrufs hier die Prozedur, _
         die ausgeführt werden soll
    End If
Next
End Sub
[/b]

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}