Gruppe
UDF
Problem
Eine benutzerdefinierte Funktion soll die erste und letzte sichtbare Zeile einer gefilterten Tabelle ermitteln. Der zweite Parameter steht für erste oder letzte Zeile.
StandardModule: basMain
Function FirstLast(rng As Range, bln As Boolean) As Integer
Dim iCounter As Integer
If bln Then
For iCounter = rng.Row + 1 To rng.Row + _
rng.Rows.Count - 1
If Rows(iCounter).Hidden = False Then Exit For
Next iCounter
Else
For iCounter = rng.Row + rng.Rows.Count - 1 _
To rng.Row + 1 Step -1
If Rows(iCounter).Hidden = False Then Exit For
Next iCounter
End If
FirstLast = iCounter
End Function