AW: Frage doch noch offen
29.01.2008 12:50:30
Rudi
Hallo,
Sub tt()
Range(Cells(16, 1), Cells(LastRow(ActiveSheet), 9)).Select
End Sub
Function LastRow(wks As Worksheet, Optional lngFirstRow&, Optional lngLastRow&) As Long
Dim lngTmp&, blnFound As Boolean
With Application
If .CountA(wks.Rows(wks.Rows.Count)) Then
LastRow = wks.Rows.Count: Exit Function
End If
If .CountA(wks.Cells) = 0 Then
LastRow = 0: Exit Function
End If
If lngFirstRow = 0 Then lngFirstRow = 1
If lngLastRow = 0 Then lngLastRow = wks.Rows.Count
lngTmp = ((lngFirstRow + lngLastRow) / 2) \ 1
If lngLastRow > lngFirstRow + 1 Then
If .CountA(wks.Rows(lngTmp & ":" & lngLastRow)) Then lngFirstRow = lngTmp: blnFound = _
True
If Not blnFound And .CountA(wks.Rows(lngFirstRow & ":" & lngTmp)) Then lngLastRow = _
lngTmp
LastRow wks, lngFirstRow, lngLastRow
End If
End With
LastRow = lngFirstRow
End Function
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe