letzte Zeile
06.01.2003 14:51:26
Patrick
Zwei Möglichkeiten um die letzte Zeile in einer Liste via VBA herauszufinden sind die folgenden:
intLZ = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
intLZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Soweit ist alles klar. Wie sieht es aber aus wenn ein AutoFilter gesetzt ist?
Sagen wir mal die letzte Zeile, die mit dem gefilterten Wert übereinstimmt, ist die Zeile 10. Die Liste hat aber 20 Zeilen. Die Zeilen 11-20 sind aber wegen dem AutoFilter nicht sichtbar.
Mit oben erwähntem Code habe ich in der Variable "intLZ" den Wert 10, möchte aber den Wert 20.
Gibt es eine Möglichkeit ohne den Filter vorher kurz aufzuhben und wieder zu setzen und ohne SendKeys?
Wäre für einen Input wirklich dankbar.
Gruss Patrick