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*
