Gruppe
UDF
Problem
Der erste sichtbare Wert aus einer gefilterten Spalte soll angezeigt werden. Die Spalte wird als Parameter vorgegeben.
StandardModule: basMain
Function FilterValue(iCol As Integer)
Dim iRow As Integer
Application.Volatile
iRow = 2
Do While Rows(iRow).Hidden = True
iRow = iRow + 1
Loop
FilterValue = Cells(iRow, iCol).Value
End Function