Guten Morgen,
Du könntest Dir diese Funktion in vba einfügen und dann in E105
=FirstFilterdValue(E2:E100) eingeben
Public Function FirstFilterdValue(myrange As Range)
Dim Found As Boolean
Dim myCells
Dim i As Long, j As Long, k As Long
i = myrange.Rows.Count + myrange.Row - 1
j = myrange.Row
k = myrange.Column
Found = False
Do Until Found = True Or j = i
If Cells(j, k).RowHeight > 0 Then
Found = True
Else
j = j + 1
End If
Loop
If Found = True Then
FirstFilterdValue = Cells(j, k).Value
Else
FirstFilterdValue = ""
End If
End Function