LastRow mit Autofilter
03.06.2009 17:43:29
mathon
ich verwende folgende Methode um die letzte Zeile in einer Tabelle zu ermitteln:
Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function
Wenn ich die Funktion ausführe ohne Autofilter, dann gibt er auch die korrekte Anzahl an Zeilen zurück. Wenn ich jedoch einen Autofilter drin habe und nur bestimmte Zeilen selektiert habe, dann gibt er nicht mehr die korrekte Anzahl an Zeilen zurück. Das heisst auch wenn nach der Selektion noch eine Reihe von Zeilen in der Tabelle angezeigt werden, gibt er mir zB. wenn ich die Funktion verwende nur eine 1 zurück obwohl noch immer zB. 500 Zeilen da sind.
Weiss jemand woran das liegen könnte?
Gruss, matti