letzte zeile bei excel 2003 und 97 finden

moin moin,

habe da ein Problem mit Excel2003 und Excel97 und zwar die Letzte Zeile finden und ab da alles Löschen
bei Excel 2003 geht das bei mir so:

Dim $lZeile, $lZeile2
$lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
$lZeile2 = $oExcel.Cells($oExcel.Rows.Count, 1).SpecialCells(11).Row
$oExcel.Range("A" & $lZeile +2, "AZ" & $lZeile2).Select
$oExcel.Selection.Delete.Shift= -4162 ;xlUp = -4162
;MsgBox(0, "Zeilenanzahl", $lZeile); nur zur kontrolle
$oExcel.Selection.EntireRow.Hidden = True
$oExcel.Range("L1").Select

Wenn ich das aber mit Excel97 mache schmiert er mir ab bezw. öffnet die Tabellen nicht.
Probiert hatte ich auch das von BugFix :

$lZeile = $oExcel.Worksheets(1).UsedRange.Rows.Count
$lZeile2 = $oExcel.Worksheets(1).UsedRange.Columns.Count

Bringt aber auch nicht das gewünschte Ergebnis.

mfg
oh-ha

Danke dir habe es gefunden und entsprechend umgewandelt.

Habe es so gelöst bekommen:

$Zeilenanzahl = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp
MsgBox(0,"Zeilenanzahl",$Zeilenanzahl)
$Spaltenanzahl = $oExcel.ActiveSheet.Cells(10, $oExcel.Columns.Count).End(-4159).Column ; -4159 = xlToLeft
MsgBox(0,"Spaltenanzahl",$Spaltenanzahl)

Die 1 bei der Zeilenanzahl ist = der Zeile A
Die 10 der Spaltenanzahl = die 10 Spalte

mfg
oh-ha