Public Function IsLastRowVisible(anzVisibleRows As Long, anzRows As Long, _
  topRow As Long) As Boolean
    If topRow + anzVisibleRows >= anzRows Then
        IsLastRowVisible = True
    Else
        IsLastRowVisible = False
    End If
End Function

Private Sub Command1_Click()
    If IsLastRowVisible(15, flx.Rows, flx.topRow) Then
        MsgBox "sichtbar"
    Else
        MsgBox "noch nicht sichtbar"
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1