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