Letze gefüllte Zelle aus beliebiger Spalte in Excel finden

[TheMiller]

Habe schnell mal selbst eine function geschrieben, die in einer gewünschten Spalte und einem bestimmten Bereich die letzte gefüllte Zelle findet, da ich die SpecialCell-Funktion nicht so komfortabel finde.

Delphi-Quellcode:

  private
    function GetLastCell(Coloumn:String; x,y:integer):String;
  public

...

function TForm1.GetLastCell(Coloumn:String; x,y:integer):String;
var
  i:integer;
begin
  for i:=x to y do
  begin
    if ExcelWorksheet1.Range[''+Coloumn+''+IntToStr(i),''+Coloumn+''+IntToStr(i)].Formula='' then
    begin
      result:=''+Coloumn+''+IntToStr(i);
      exit;
    end;
  end;
end;

PS: Es ist mein erster Beitrag. Bitte nicht gleich so hart so *indeckunggeh* :-D