Public Sub Frank()
Dim lngRow As Long
For lngRow = 3 To Cells(2, 1).End(xlDown).Row
If Not Rows(lngRow).Hidden Then Exit For
Next
MsgBox "Erste Zeile: " & CStr(lngRow) & " letzte Zeile: " & CStr(Cells(2, 1).End(xlDown).Row)
End Sub
Public Sub Frank()
Dim lngRow As Long
For lngRow = 4 To Cells(3, 1).End(xlDown).Row
If Not Rows(lngRow).Hidden Then Exit For
Next
MsgBox "Erste Zeile: " & CStr(lngRow) & " letzte Zeile: " & CStr(Cells(3, 1).End(xlDown).Row)
End Sub
Function FilterZeile1() As Long
With ActiveSheet
If .FilterMode Then
With .Cells.SpecialCells(xlVisible)
If .Areas(1).Rows.Count = 1 Then
FilterZeile1 = .Areas(2).Row
Else
If .Areas(1).Rows.Count > 1 Then FilterZeile1 = 2
End If
End With
End If
If FilterZeile1 > .Cells(1).CurrentRegion.Rows.Count Then _
FilterZeile1 = 0
End With
End Function
Function FilterZeile1() As Long
With ActiveSheet
If .FilterMode Then
With .Cells.SpecialCells(xlVisible)
If .Areas(1).Rows.Count < 4 Then
FilterZeile1 = .Areas(2).Row
Else
FilterZeile1 = 4
End If
If FilterZeile1 > .Areas(1).Cells(513).CurrentRegion.Rows.Count Then _
FilterZeile1 = 0
End With
End If
End With
End Function