So,
nachdem ich noch ein bissl probiert habe, kam ich zu folgendem Code:
Delphi-Quellcode:
procedure TForm4.Button4Click(Sender: TObject);
const
xlCellTypeLastCell = $0000000B;
var myExcel, sheet:OleVariant;
a:Integer;
begin
myExcel := CreateOleObject('Excel.Application');
[b]Sheet:=myExcel.Workbooks[ExtractFileName(ParamStr(0))+('Mappe1.xls')].Worksheet[1];[/b]
a:=Sheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
ShowMessage(IntToStr(a));
end;
Doch hier sagt er "Ungütliger Index" und markiert die fett gedruckte Zeile im Code!