Referencer og Filter

du kan bruge denne vba-funktion

Function ShowFirst(data As Range) As Variant
    Dim c As Range
    For Each c In data
        If (Not c.Rows.Hidden) Then
          ShowFirst = c
          Exit Function
        End If
    Next
    ShowFirst = CVErr(xlErrNA)
End Function


Kaldes i arket således
=ShowFirst(Ark1!A1:A1000)

Lige præcis, det som skal bruges. Læg et svar. Undskyld ventetiden.

ok :-)