Ich habe zum Beispiel auf der Spalte "D" einen Filter gesetzt. Nun möchte ich per VBA jede einzelne gefilterte Zeile durchlaufen und eine entsprechende Prüfung vornehmen. Wie kann ich einen gefilterten Bereich durchlaufen?
Vielen Dank
Christian
Sub Filterbereich()
Dim c As Range, z As Range
Set c = Range("D1:D50").SpecialCells(xlCellTypeVisible)
For Each z In c
MsgBox z.Address
Next z
End Sub
Sub Filterbereich()
Dim c As Range
For Each c In Range("D1:D50")
If c.RowHeight > 0 Then
'Deine Prüfung
End If
Next c
End Sub