Mit Daten wie:
Wir wenden einen Filter an und möchten wissen, ob die erste sichtbare Zelle in Spalte A den gleichen Wert wie die letzte sichtbare Zelle in Spalte A hat .
Dieses kurze Makro durchläuft den Bereich, prüft die Sichtbarkeit und führt den Test aus:
Sub Roman() Dim rng As Range, r As Range Dim v1 As Variant, v2 As Variant Dim FlipFlop As Boolean Set rng = Range("A2:A26") FlipFlop = True For Each r In rng If FlipFlop Then If r.EntireRow.Hidden = False Then v1 = r.Value FlipFlop = False End If Else If r.EntireRow.Hidden = False Then v2 = r.Value End If End If Next r If v1 = v2 Then MsgBox "they are equal" Else MsgBox "they are not equal" End If End Sub
Dies hängt nicht von SpecialCells ab.