Die hab ich schon längere Zeit im Einsatz:
Delphi-Quellcode:
function GetColName(ACol: Integer): string;
begin
ACol := ACol - 1;
Result := Chr(Ord('A') + (ACol mod 26));
if ACol >= 26 then
Result := GetColName(ACol div 26) + Result;
end;
Die kleinste Spalte hat die Nummer 1.