Fehlersuch Objekt erforderlich
14.10.2003 16:11:41
Jan Bro
ich bekomme ständig objekt erforderlich, wo liegt da der Fehler?
Ende = Range("A7").End(xlUp).Row
target = Range("A7:N" & Ende)
Application.Run FindeHidden(target)
[...]
______________________________________________________________________________
Function FindeHidden(target) As Double
Application.Volatile
Dim rng As Range
For Each rng In target.Rows
If Not (rng.Hidden) Then
End If
Next
End Function